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Amstrad PC MS-DO 


Una scelta infinita. 




D AL GIOCO 
ALLA PROFESSIO¬ 

NE, UNA SCELTA 
SENZA LIMITI. 

La grande famiglia 
di PC 1512 e PC 
1640, soddisfa tutte 
le esigenze: da chi si 
accosta per la prima 
volta al mondo in¬ 
formatico al profes¬ 
sionista esigente e 
sofisticato. In parti¬ 
colare, i drive da 5” e 
1/4 ti consentono di 
utilizzare, subito, 
tutto il software esi 
stente, nel formato 
attualmente più dif¬ 
fuso ed economico. 

M OLTO PER 
COSÌ POCO. E 
SENZA SORPRESE. 

I PC Amstrad serie 
1512 e 1640 (in tut¬ 
te le configurazio¬ 
ni) includono nel 
prezzo: 

- monitor; mouse; 
MS DOS 3-2; BA¬ 
SIC; GEM; ABILITY. 

— manuali e corso di 
autoistruzione (tut¬ 
to in italiano). 


COMPLETAMEN¬ 
TE E FACILMENTE 
ESPANDIBILI. 

Come si dice, molto 
spesso è una que¬ 
stione di memoria. 
Allora, l’aggiunta del¬ 
le schede di espan¬ 


sione è di massima 
semplicità: fino a 3 
alloggiamenti per 
schede a dimensio¬ 
ne intera, per collega¬ 
mento LAN, modem 
integrati, dischi rigi¬ 
di, ecc. 


O RA ANCHE 
CON CD-ROM 
INCORPORATO. 

Da settembre due nuo¬ 
vi modelli rafforzano 
la gamma 5” 1/4: PC 
1512 SD CD-ROM e 
PC 1640 SD CD-ROM. 
Incorporano un let 
tore CD-ROM da 550 
Mb. Così in un unico 
disco, puoi avere 
un’intera enciclope¬ 
dia o una banca dati 


o migliaia di pro¬ 
grammi. Ma non so¬ 
lo. Collegandolo al 
tuo Hi-Fi, puoi ascol¬ 
tare la tua musica in 
compact disc. 

STAMPANTI; UNA 
GRANDE GAMMA. 

Amstrad ti propone, 
da abbinare al tuo 









































S 5” 1/4 e CD-ROM 



personal computer, 
stampanti ecceziona¬ 
li nelle caratteristiche 
e nel prezzo. Come la 
DMP 3160, 349.000 
lire + IVA, 80 colon¬ 
ne, 160 cps, 
grafica! 

I GRANDI 
PORTATILI 

Amstrad ti offre an¬ 
che una gamma di 
portatili: i PPG. Con 
essi i tuoi dati posso¬ 
no seguirti ovunque! 
Inoltre grazie al soft¬ 
ware AM-LINK li puoi 
collegare con il tuo PC 
1512 o 1640 e trasferi¬ 
re file dal formato 5” 
1/4 al formato 3” 1/2. 



rezzo. 



PRONTO 

AMSTRAD. 

Telefona allo 02/ 
26410511, ridaremo 
tutte le informazio¬ 
ni che ti interessano. 
Puoi anche scrivere: 
Casella Postale 10794 
- 20124 Milano. 


[Tutte le configurazioni prevedono MS DOS 3.2, GEM, BASIC, ABILITY, corso audio di autoistruzione, porta parallela e seriale. 



LI TROVI QUI. 

Presso i numerosissi¬ 
mi punti vendita Am¬ 
strad. Cerca quello 
più vicino su “Am¬ 
strad Magazine” in edi¬ 
cola (troverai molte 
notizie in più). 


modello 

CPU 

RAM 

drive 

slot esp. 

monitor 

nuovo prezzo 

IVA esclusa 

9 SERIE PC1512 






! PC1512 SDMM/A 

8086 8Mhz 

512 Kb 

1 FD 360 Kb 

3 x 8bit 

comp. CGA monocr. 

890.000 

PC1512 DDMM/A 

8086 8Mhz 

512 Kb 

2 FD 360 Kb 

3 x 8bit 

comp. CGA monocr. 

1.190.000 

PCI512 SDMM - CD ROM 

8086 8Mhz 

512 Kb 

1 FD 360 Kb 

3 x 8bit 

comp. CGA monocr. 

1.890.000 




1 CD ROM 550 Mb 




PCI 512 SDCM/A 

8086 8Mhz 

512 Kb 

1 FD 360 Kb 

3 x 8bit 

comp. CGA colori 

1.190.000 

PCI 512 DDCM/A 

8086 8Mhz 

512 Kb 

2 FD 360 Kb 

3 x 8bit 

comp. CGA colori 

1.490.000 

PCI512 SDCM - CD ROM 

8086 8Mhz 

J 

512 Kb 

1 FD 360 Kb 

1 CD ROM 550 Mb 

3 x 8bit 

■■■1 

comp. CGA colori 

2.190.000 

■■■1 

WKS 1512/A 

PC 1512 DDCM/A + DMP 3160 + MOBILE TAVOLO + AM WRITE 1.999.000 

SERIE PC1640 







PCI640 SDMD/A 

8086 8Mhz 

640 Kb 

1 FD 360 Kb 

3 x 8bit 

MDA monocr. 

1.290.000 

PC 1640 DDMD/A 

8086 8Mhz 

640 Kb 

2 FD 360 Kb 

3 x 8bit 

MDA monocr. 

1.590.000 

PCI640 HDMD/A 

8086 8Mhz 

640 Kb 

1 FD 360 Kb 

1 HD 30 Mb 

3 x 8bit 

MDA monocr. 

1.990.000 

PCI640 SDMD-CD ROM 

8086 8Mhz 

640 Kb 

1 FD 360 Kb 

3 x 8bit 

MDA monocr. 

2.290.000 








PCI640 SDECD/A 

8086 8Mhz 

640 Kb 

1 FD 360 Kb 

3 x 8bit 

EGA colori 

1.790.000 

PCI640 DDECD/A 

8086 8Mhz 

640 Kb 

2 FD 360 Kb 

3 x 8bit 

EGA colori 

2.090.000 

PC 1640 HDECD/A 

8086 8Mhz 

640 Kb 

1 FD 360 Kb 

1 HD 30 Mb 

3 x 8bit 

EGA colori 

2.490.000 

PCI640 SDECD - CD ROM 

8086 8Mhz 

640 Kb 

1 FD 360 Kb 

3 x 8bit 

EGA colori 

2.790.000 







1 

WKS 1640 PC 1640 DDECD/A + DMP 3160 + MOBILE TAVOLO + AM CAD 2.599.000 

Tutti i portatili Amstrad sono forniti con MS DOS 3.3, PPC ORGANIZER, MIRR0R (mod. 640), adattatore per alimentazione, porta seriale, 
porta parallela, due connettori per periferiche. 

modello 

CPU 

RAM 

drive 

modem 

video 

prezzo 

IVA esclusa 

SERIE PPC512/640 






PPC512SD 

8086 8Mhz 

512 Kb 

1 FD 720 Kb (3"1/2) 

- 

LCD 

990.000 

PPC512DD 

8086 8Mhz 

512 Kb 

1 FD 720 Kb (3”1/2) 

- 

LCD 

1.340.000 

PPC512HD 

8086 8Mhz 

512 Kb 

2 FD 720 Kb (3"1/2) 

- 

LCD 

2.290.000 




1 HD 20 Mb 




PPC640SD 

8086 8Mhz 

640 Kb 

2 FD 720 Kb (3”1/2) 

HAYES 

LCD 

1.240.000 

PPC640DD 

8086 8Mhz 

640 Kb 

2 FD 720 Kb (3”1/2) 

HAYES 

LCD 

1.590.000 

PPC640HD 

8086 8Mhz 

640 Kb 

2 FD 720 Kb (3”1/2) 

HAYES 

LCD 

2.540.000 




1 HD 20 Mb 




Accessori: FD CD ROM 

550 Mb ; completo rii scheda 

1.290.000 



DALLA PARTE DEL CONSUMATORE 


OPINIONE Comunicazione Integrata 
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NOVITÀ BONDWELL 
ALLO SMAU 89 



COMPUTER DA TAVOLO B 630 


Nella linea dei computer da tavolo Bond- 
well, il PC/AT compatibile B630 è certamen¬ 
te la soluzione al più alto livello, destinata a 
chi ad un PC chiede massima potenza e 
grandi prestazioni. 

Costruito attorno al microprocessore 80286 
a 16 MHz e utilizzando le tecniche “Page In- 
terleave” e “Ram Shadow”, può infatti van¬ 
tare la massima velocità raggiungibile da 
una macchina 286, con un incremento del 
25% rispetto ai tradizionali AT compatibili e 
una potenza di elaborazione che lo rende 
simile ad un 386. 




Può quindi proporsi come soluzione ideale 
per ambienti applicativi molto sofisticati co¬ 
me la progettazione assistita dal computer 
(CAD). 

Ogni B630 viene fornito con uno zoccolo 
per schede coprocessore 80287, 2 MByte 
di Ram espandibili a 8 su scheda, madre 
un’unità a floppy disk da 5.25” e 1.2 MBy¬ 
te di capacità, la predisposizione per 
quattro drive supplementari, cinque slot 
di espansione a 16 Bit e tre a 8 Bit, una ta¬ 
stiera completa da 101 tasti, una porta 
parallela e due porte seriali per applica¬ 
zioni in multiutenza. 

Fa inoltre parte della dotazione standard 
la scheda di controllo del disco rigido, la 
Scheda Super EGA, che assicura una ri¬ 
soluzione massima di 640*480 pixel e un 
completo pacchetto di software com¬ 
prendente MS-DOS 3.3, GW-BASIC 3.22 
ed il Word Processor Easy 1.5 completo di 
dizionario. 

Per soddisfare le esigenze degli utenti più 
sofisticati, il B630 è disponibile in due 
configurazioni: una dotazione di monitor 
monocromatico multisync da 14" a colori 
ad alta risoluzione compatibile EGA/Ega 
Plus. 

Entrambe le configurazioni possono es¬ 
sere completate da un disco rigido dispo¬ 
nibile nei formati da 20, 40 e 70 MByte. 

L BFAX 100.... NON SOLO TELEFAX 

C’è chi lo chiama fax, ma Bfax è molto di più 
di un semplice personal facsimile. 

Più corretto sarebbe definirlo “quattro si¬ 
stemi in uno”, dal momento che può essere 
utilizzato come fax, fotocopiatrice, stam- 
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NOTIZIARIO 



pante e terminale fax per PC. 

Una soluzione molto versatile, dunque, e 
quindi adatta a soddisfare le esigenze più 
eterogenee I punti di forza su cui Bondwell 
invita l’utente a soffermarsi sono a prova di 
concorrenza. 

Bfax 100 è innanzitutto un fax piccolo ed af¬ 
fidabile. 

Inoltre Bfax 100 comunica con il PC utiliz¬ 
zando la porta parallela Centronics. La 
scelta è legata a tre importanti considera¬ 
zioni: la porta parallela è molto più veloce 
della porta RS-232, è più economica, ed è 
presente su tutti i PC. 

Bfax 100 si configura come "fax PC termi¬ 
nal”, demandando al PC l’intera gestione 
delle operazioni e consentendo di minimiz¬ 
zare il tempo di attesa durante l'invio di do¬ 
cumenti via fax. 

Bfax 100 consente di scandire il documento 
e fonderlo con intestazioni o note a piè pa¬ 



gina diverse per destinatari diversi e di in¬ 
viare quindi documenti personalizzati. 

Bfax 100 realizza il concetto di "paperless 
fax", cioè può essere utilizzato anche senza 
carta e, se collegato ad un PC, preferibil¬ 
mente datato di disco fisso, può utilizzare la 
memoria di quest'ultimo come buffer di me¬ 
morizzazione dei documenti in arrivo. 


Se questo non bastasse, Bfax 100 può an¬ 
cora essere usato come scanner a basso 
costo, può essere collegato in rete attraver¬ 
so il PC cui è abbinato e, infine può essere 
collegato a un altro Bfax 100 e operare co¬ 
me modem veloce a 9600 baud full duplex. 
Per concludere qualche caratteristica tec¬ 
nica: 

compatibile CCITT G3 è in grado di utilizza¬ 
re la linea telefonica standard o equivalen¬ 
te, Bfax 100 offre una risoluzione orizzonta¬ 
le di 8 linee/mm e una verticale di 3.85 li- 
nee/mm nel modo standard e di 7.7 nel mo¬ 
do fine. 

Pesa solo 5 Kg. ed ha un ingombro di 
320*310*85 mm. 

Bondwell Italia 
Via Cantù 19 
Cinisello Balsamo (MI) 

Tel. 02-66011212 
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L PIU’ ALTA DENSITÀ FRA 
I DISCHI FISSI DA 3” 1/2 

La Areal Technology Corp. ha lanciato sul 
mercato una serie di dischi rigidi da 3” 1/2 
caratterizzati da piatto singolo e basso 
consumo. 

La D.D.P., srl - DIGITAL DATA PRODUCTS - 
di Torino, distributore esclusivo in Italia pre¬ 
senterà ufficialmente questi prodotti al 
prossimo SMAU e provvederà a curarne le 
consegne entro novembre ’89. 

Queste unità hanno la grande particolarità 
di fornire, per la prima volta, agli utilizzatori 
di computer portatili, un’ampia 
capacità di memoria dati normalmente ri¬ 
scontrabile nei sistemi desktop. 

Le nuove unità sono disponibili nelle versio¬ 
ni da 50 MByte (BP50), da 100 MByte 
(BP100) e da 200 MByte (RD 200) ed utiliz¬ 
zano le più alte densità di punti di magne¬ 
tizzazione mai impiegate per memorizzare 
50-100-200 MByte di dati formattati su di un 
singolo piatto con substrato in vetro rivesti¬ 
to da un deposito di film sottile. 


una potenza estremamente ridotta quando 
il disco ruota alla velocità di regime, il che 
consente una maggiore autonomia della 
batteria nei sistemi portatili pur mantenen¬ 
do gli elevati livelli di prestazioni richiesti 
per utilizzare efficientemente i programmi 
applicativi. 

La potenza media richiesta da questa unità 
è di 1 Watt o meno. 

Digital Data Products 
C.so G. Pascoli 5/A 
Torino 
011-580836 



ITAITEI TELEMATICA A SMAU 89 


Ampliamento della gamma dei prodotti a 
catalogo, potenziamento della linea siste¬ 
mi numericimaggiore articolazione dei 
canali distributivi 



La Areal prevede che la filosofia di progetto 
dei suoi prodotti troverà generale applica¬ 
zione in molte famiglie di prodotti. 

Il disco rigido BP-100 da 3” 1/2 utilizza la più 
alta densità di punti di magnetizzazione 
che sia mai stata impiegata per memorizza¬ 
re 105 MByte di dati formati su di un singolo 
piatto. 

La nuova unità disco adotta inoltre uno 
speciale motore progettato per dissipare 


Ai grandi utenti Italtel Telematica propone 
gli ultimi sviluppi e le referenze applicative 
dei sistemi numerici Office BX (10000, 5000, 
1000): nuove release hardware e software li 
arricchiscono infatti di prestazioni avanza¬ 
te per applicazioni di integrazione voci/dati, 
di networking analogico/digitale e di office 
automation. Tra i moduli a valore aggiunto, 
integrati funzionalmente nei sistemi Office 
BX, è da rilevare la novità Office Voicecom, 


UghtFax 

PC-Fax 

UGHTFAX 

È un sistema che fornisce ai PC le caratteri¬ 
stiche e le funzioni di un telefax. 

Esiste come unità staccata o come scheda 
da installare all’interno del PC 



Uib. 

- LIGHTFAX 9624 


(box)e9624B (scheda) perIBMPC/XT/AT, 
IBM PS/2 o compatibili 

- LIGHTFAX MAC per Apple Macintosh plus, 
Macintosh SE e Macintosh n 

- LIGHTFAX 9624BH per laptop 
È dotato di modem 

CARATTERISTICHE: 

- fax 9600 bps (CCITT GID) 

-modem Hayes compatibile (CCITT V.21, 
V.22, V.22 bis, V.23, Bell 212A, Bell 103) 

- microfono interno per controllo chiamate 

- i fax files possono essere archiviati su flop¬ 
py o hard disk. 



Il software che viene fornito permette di 
operare con: 

- ambiente “Windows” Microsoft 

- sistema di gestione dati 

- commutazione automatica fra dati e voce 

- password di sicurezza 

- giornale dei files movimentati 

- composizione delle pagine ed editing 

- trasmissione di più files a destinatari diversi 

- trasmissione differita programmata a più 
destinatari 

- ricezione e trasmissione in background 

- la maggior parte degli scanner in commercio 

- la maggior parte delle stampanti laser 

- uso di carta normale 


Dealers are Welcome! 


SOINCO srl 

20148 Milano 


>OINCO ^' a C° rno di Cavento, 21 


Toi /noi /no\ ar 70 aarq 
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che rende disponibili agli utenti di PABX o 
di rete servizi evoluti di messaggistica voca¬ 
le. 

Nel segmento delle reti geografiche di tra¬ 
smissione dati, l’offerta comprende una ric¬ 
ca gamma di modem; multiplexer statistici, 
multifunzione e TDM; nodi e PAD X.25; si¬ 
stemi DOV e package di gestione di rete, 
con un numero elevato di novità: si tratta di 
proposte articolate, flessibili e componibili, 
in grado di soddisfare la necessità sia di un 
semplice collegamento commutato tra per¬ 
sonal computer, sia di una rete complessa 
ed estesa a commutazione di pacchetto. 
Le soluzioni ipotizzabili sono comunque 
globali e disegnate sulle specifiche esigen¬ 
ze dell'utente. 

Per il mercato professionale dei fax, vengo¬ 
no presentate tre novità assolute per il salo¬ 
ne: i modelli CX130, CX 140, e CX 260, che 
ampliano la già ricca gamma degli appa¬ 
recchi Italtel Telematica: dotati di prestazio¬ 
ni differenziate, tutti i modelli hanno un po¬ 
sizionamento di prezzo particolarmente 
corretto. 

L’utenza consumer può fare riferimento al 
ricco catalogo Shopline di prodotti distri¬ 
buiti nei punti vendita di elettronica di con¬ 
sumo qualificata su tutto il territorio nazio¬ 
nale: telefoni addizionali e multifunzione, 
segreterie con o senza microtelefono incor¬ 
porato, filodiffusori, personal fax. 

Questi ultimi prodotti sono presentati per la 
prima volta a Smau; disponibili in tre versio¬ 
ni (FN 10 e FN 15) con caratteristiche di so¬ 
fisticazione crescente, rappresentano le 
apparecchiature ideali “ entry level" per 
tutte le fasce di utenza che intendono acco¬ 
starsi per la prima volta alla comunicazione 
via facsimile; prezzo assolutamente compe¬ 
titivo, facilità d’uso, compattezza e design li 
rendono ambientabili e utilizzabili ovunque. 

Italtel 

Via A. di Tocqueville 13 
Milano 

Tel. 02-43885098 
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RICORDl H/i rchimedes 

Buon lavoro, con la potenza del RISC! 



Wnm 


> RISC: è il principio di Archimedes, lo straordinario e velocissimo personal computer a 32 bit D> Mettetelo alla 
prova con un foglio elettronico come SigmaSheet, 200 volte più rapido dei suoi simili (ricalcola un cash-flowdi 32 
anni in meno di 25 secondi), o con un integrato come Pipe-dream (predisposto per comunicare con i portatili del¬ 
la nuova generazione), o con un project-manager versatile 
come Logistix, o con un database come System Delta Plus 
(che può gestire oltre due miliardi di records ) > Confrontate 
la potenza dei pacchetti di grafica, del software per appli¬ 
cazioni musicali, didattiche, scientifiche, mediche t> Valutate 
la facilità con cui sono state sviluppate soluzioni origi¬ 
nali e sofisticatissime nei vari linguaggi disponibili S 
BBC Basic, Assembly, C, Pascal, Fortran 77, ' 

Lisp, Prolog) O Apprezzate la possibilità di conti¬ 
nuare a utilizzare tranquillamente i 
vostri pacchetti MS-DOS pre¬ 
feriti C> Mai un computer 
così nuovo e rivoluzionario 
ha avuto tanto software 
così presto D> Ed è solo il — 
principio. 


G. RICORDI &C. 
Settore Informatico 
Via Salomone, 77 
20138 MILANO 
tei. 02/5082-315 


Distributore esclusivo: 


|Per maggiori informazioni, inviate questo coupon a G. RICORDI & C 
Settore Informatico, Via Salomone, 77, 20138 MILANO 


Desidero avere maggiori informazioni su Archimedes 
Nome: 


Cognome: 


The choice of experience 

Un'azienda del gruppo Olivetti 


Qualifica professionale 


Ditta. Ente o Scuola: 


Indirizzo: 


I 





















f 



Lr SISOFT Alio SMAU 1989 

La SiSoft, distributrice per l’Italia dei prodot¬ 
ti WordPerfect, DataErase e DHG annuncia 
la propria partecipazione all'edizione 
SMAU 1989, dove sarà possibile una dimo¬ 
strazione approfondita di tutti i prodotti di¬ 
stribuiti. 

Tra i prodotti che girano sotto DOS segna¬ 
liamo la versione in Italiano di WordPerfect 
5.0, il più diffuso WordProcessor nel mon¬ 
do, le nuovissime release di Pian Perfect - 
un potente foglio elettronico ora dotato di 
nuove funzioni e di menu a tendina - e di 
WordPerfect Office, un integratore di appli¬ 
cazioni dotato di funzioni di Posta Elettroni¬ 
ca, Agenda e calendario. 

Sempre per l’ambiente Dos segnaliamo la 
nuova e potente versione 4.0 di DataErase, 
il famoso Database relazionale apprezzato 
da tutti per potenza e facilità d’uso. DataE¬ 
rase 4.0 sar subito disponibile in italiano sia 
in versione monoutente sia per LAN. 

Della linea DataErase fanno parte anche 
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NUOVO MONITOR PHILIPS 


Tutta l’esperienza e la tecnologia Philips sono servi¬ 
te per creare questo nuovo rivoluzionario Monitor 
a Cristalli Liquidi (LCD a retroproiezione). 

Ora il vostro computer potrà evidenziare dati e 
grafici in modo più lineare, pulito e preciso. 


MONITORS PHILIPS 
MIGLIORI PER DEFINIZIONE 


non basta. Il nuovo Monitor Philips a Cristalli Liquidi, 
realizzato secondo i criteri del più attuale design 
- compatto e funzionale - completerà in modo 
molto personale ed elegante il vostro ufficio. 


A CRISTALLI LIQUIDI 




















NOTIZIARIO 



Image-ln, un interessante package che per¬ 
mette la memorizzazione di immagini e la 
relativa gestione, Graftalk - un programma 
che permette la visualizzazione grafica dei 
dati estratti dai database - e CrossView, il 
foglio elettronico a più dimensioni. 

Per DataErase 4.0 sono anche disponibili 
degli appositi Tool di sviluppo per program¬ 
matori che permettono la creazione di pro¬ 
grammi “stand alone". 

Per quanto riguarda gli altri sistemi operati¬ 
vi segnaliamo la nuova versione per OS/2 ,e 
Unix/Xenix di WordPerfect, quella 
Unix/Xenix di WordPerfect Office, ed infine 
quella per OS/2 di DataErase, dotata di un 
interessante modulo che permette la tradu¬ 
zione automatica dei comandi DataErase 
nei corrispondenti SQL. 


SiSoft 

C.so Sempione 8 
Milano 

Tel. 02-33104382 


L DISCHI OTTICI: MERCATO IN CRESCITA 
PER II POH CARBONATO 

A sei anni dal loro lancio sul mercato i com¬ 
pact discs hanno conquistato una posizio¬ 
ne di primo piano nel campo della musica 
hi-fi. 

Nel 1988 in tutto il mondo sono stati venduti 
circa 450 milioni di cd. 

La Bayer AG ha significativamente contri¬ 
buito allo sviluppo di prodotti scientifici per 
la produzione di compact discs. Oggi nel 
mondo quasi la metà dei CD viene realizza¬ 
ta in Makrolon CD 2000, un policarbonato 
della Bayer. Dopo che nel settore dei dischi 
ad una sola registrazione, i cosiddetti 
WORM sono stati adottati standards inter¬ 
nazionali, ora con i dischi WORM i CD-ROM 
ed i CD video single si sta muovendo anche 
il mercato dei memory discs ottici per l’ela¬ 
borazione di immagini e dati. Il Makrolon 
CD 2000 viene impiegato con successo an¬ 
che in questo campo. 

Mentre finora le memorie ottiche venivano 
impiegate limitatamente, per sostituire altri 
sistemi di diffusione come i dischi e la stam¬ 
pa, ora con i dischi WORM si ha a disposi¬ 
zione un nuovo sistema che integra tecni¬ 
che più recenti, come ad esempio il micro¬ 
film. 

Con tale sistema l’utilizzatore ha la possibi¬ 
lità di registrare i dati in una memoria ottica 



e successivamente di rileggerli ogni qual 
volta lo desideri senza che il materiale si de¬ 
teriori nel tempo. 

A fine 1988 la società Philips and Du Pont 
Optical ha lanciato sul mercato dischi 
WORM da 130 mm di diametro, realizzati 
con il Mkrolon CD 2000. Grazie ad intense 
attività di ricerca per migliorare la qualità 
del prodotto, soprattutto nell’ambito della 
produzione, con questo tipo di Makrolon la 
PDO è riuscita a soddisfare requisiti eleva¬ 
tissimi nel campo dei dischi WORM, otte¬ 
nendo addirittura un tasso di errore dell’or¬ 
dine di 10-6. 

I dischi WORM sono registrabili su entram¬ 
be le facciate e sono protetti da una casset¬ 
ta. Con il disco formattato da 5”1/4 l'utiliz- 
zatore ha a disposizione circa 600 MByte, 
che corrispondono a circa 150.000 pagine 
nel formato DIN A4, scritte in codice binario. 
Nel 1987 era stata introdotta sul mercato 
un’altra memoria ottica, il CD ROM. Con 
questo prodotto, destinato principalmente 
al settore industriale, è possibile registrare 
in un disco da 120 mm di diametro un in¬ 
gente numero di dati, ad esempio come 
quelli contenuti in testi di più volumi. 


Un software semplice consente un facile 
accesso ai dati. 

Un nuovo prodotto dell’elettronica è il CD 
video single da 120 mm di diametro, che ol¬ 
tre a consentire la registrazione audio con 
sistema digitale dispone di una parte riser¬ 
vata alla registrazione di immagini della du¬ 
rata di circa cinque minuti. Questo disco è 
stato lanciato sul mercato agli inizi del 1988 
da Philips e Sony, dapprima sul mercato 
americano e, dalla fine del 1988, anche in 
Europa Occidentale. 

Il sistema di registrazione MOR, attualmen¬ 
te in via di sperimentazione e costituito da 
dischi che si cancellano, richiede un’ottima 
birifrangenza, difficilmente ottenibile con ti¬ 
pi di policarbonato attualmente disponibili. 
Per questo scopo Bayer ha sviluppato nuo¬ 
vi materiali di supporto costituiti da termo- 
plastici e da termoindurenti. I prodotti ven¬ 
gono impiegati in via sperimentale.tecnolo¬ 
gico molto basso. 

Bayer Italia 
V.le Certosa 130 
Milano 

Tel. 02-39782845 
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ABBONARSI A M&T OFFRE MOLTI VANTAGGI: 

• uno sconto del 30% sul prezzo di copertina 
(25.000 invece di 36.000 lire) 

• un servizio amichevole sulle teleutenze 

• consulenze e informazioni sul mondo telematico 

• attività promozionali mirate 

•••• e tante altre possibilità per essere aggiornati e 
pronti per il futuro. E' sufficiente inviare un vaglia 
postale o un assegno di conto corrente a: EDICOMP 
Via Stilicone 111 -00175 ROMA. EDICOMP è anche 
l'editore di LIST, la rivista per il computer. 









ATTUALITÀ 


“ARTE SCIENZA E 
SOCIETÀ ” A CAPRESE 
MICHELANGELO 



di OSVALDO CONTENTI 


Dal ri al 16 Luglio, pixel e pennello hanno 
vissuto in simbiosi nella Vacanza Studio 
ai cospetto della dimora natale di Miche¬ 
langelo Buonarroti 


aprese Michelangelo, terra 
natia del Buonarroti, il Som¬ 
mo Maestro si aggira ancora 
nei pressi del Palazzo del Po¬ 
destà. La sua presenza, vor¬ 
remmo dire ologrammatica, si fa poi specu¬ 
lare negli occhi, nelle movenze e nelle 
espressioni dei suoi conterranei, tanto che 
ad osservarli si ha l'esaltante impressione 
di aver varcato una Sistina vivente. 

Per l’amante dell’arte è un tuffo nell’oniri- 
co-temporale, poi il Maestro con un cenno 
grave del capo fi invita a seguirlo e le sue 
vesti rinascimentali si tramutano in un com¬ 
pleto jeans, dalle cui tasche affiorano, cer¬ 
to, pennelli e scalpello, ma la mano dell'arti¬ 
sta ora serra anche un Mouse, per fruire di 


una “tavolozza" di 16 milioni di colori di un 
personal computer. 

In verità la splendida iniziativa della Vacan¬ 
za Studio, ideata dal titolare della cattedra 
di Tecniche Pittoriche Prof. Arch. Riccardo 
Saldarelli, si dimostra come un esempio da 
seguire per interfacciare la luminosa tradi¬ 
zione artistica toscana alle più innovative 
tecniche informatiche e telematiche. 

Non a caso il Sindaco di Caprese M., Prof. 
Pier Luigi Serafini, ci informava con fervore 
sulla possibile istituzione di una BANCA 
DATI MICHELANGIOLESCA, comprensiva 
di tutte le opere dell’artista, la quale certo 
raccoglierebbe il plauso internazionale, ca¬ 
lamitando l'interesse degli operatori artisti¬ 
ci, purché dalla capitale, che tanto deve al 
Buonarroti, pervengano segnali e "fiorini” 
destinati almeno ad incoraggiare l'intera 


operazione culturale. 

Ad ogni modo Caprese M. non aspetta iner¬ 
te la “pioggerella romana” per dilagare in 
un fiume di iniziative, e le 16 giornate dei: 
Seminari Internazionali, vertenti sul tema 
"Arte, Scienza e Società” ne sono una 
hard-copy fedelissima. 

In tal modo dal 10 al 16 Luglio, allievi del¬ 
l’Accademia di Belle Arti, ma anche sempli¬ 
ci “novizi”, convenuti da più parti del mon¬ 
do, sono passati agevolmente dai laborato¬ 
ri di Tecniche Pittoriche e realizzazione di 
affreschi, alle indagini sul campo della 
Computer Art, alla conoscenza dei Frattali, 
allo studio degli Ologrammi e della Compu¬ 
tergrafica, arrivando persino, nell’incontro 
con il terreno produttivo, all’utilizzazione 
dei sistemi CAD per l’industria, alla scoper¬ 
ta del telaio infinito di "Wonder C.A.T.” 
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(Computer Aided Textile), della Line Infor¬ 
matica S.p.A., e con l’ausilio di Mini Compu¬ 
ter o Mainframes della Honeywell Bull, pro¬ 
grammabili nei più evoluti sistemi: Unix, Xe¬ 
nix, Prologue ed MS DOS. 

Sono stati poi gli esperti chiamati a conve¬ 
gno, di statura internazionale, quali il critico 
d'arte Achille Bonito Oliva o i chimici Prof. 
Paolo Manzelli e Dott.ssa Maria Grazia Co¬ 
sta, per citare solo alcuni nomi, a proiettare 
sui Seminari un “Lumen” interdisciplinare 
tra Arte e Scienza; l’abbraccio di un nuovo 
Umanesimo che si fa verbo universale con¬ 
tro la Babele della divulgazione e della ri¬ 
cerca a compartimenti stagni. 

Ancora una volta, quindi, la “provincia ita¬ 
liana", surclassa con le sua orgogliosa vi¬ 
talità le grandi metropoli nazionali, pro¬ 
muovendo: cultura, paesaggi e spazi a mi¬ 
sura d’Uomo, dove le nuove generazioni, 
ma anche gli stessi operatori culturali tro¬ 
vano un fertile terreno di confronto dialetti¬ 
co, rinnovando, con un occhio al futuro, il 
senso etimologico di “Accademia”, ovvero 
il bosco sacro di Academo dove insegnò 
Platone. 

A questo riguardo il Professor Saldarelli, ve¬ 
ra CPU direttiva dell’intero arco dei Semina¬ 
ri, ci ha detto: - Questa è la risposta di Ca¬ 
prese Michelangelo ai campus universitari 
d’oltreoceano. Quando approdai in questo 
emblematico luogo per eseguire gli affre¬ 
schi al Santuario di S. Maria delle Grazie, 
capii che la terra madre del Buonarroti 




emanava un fluido, un humus culturale, di 
così rara intensità, tale da attrarre nei suoi 
siti studiosi e ricercatori di ogni parte del 
mondo. Ora queU’immagine è giunta a real¬ 
tà e l’intervento del computer nella fase arti¬ 
stica è il miglior modo per affacciarsi ai pa¬ 
norami di un auspicabile Nuovo Rinasci¬ 
mento del secondo millennio. 

Dopo le sentite parole del Professor Salda¬ 
relli, non a caso impegnato da un venten¬ 
nio anche nel campo della Computer Art, o 
come egli dice quale "esploratore di sco¬ 
perte artistiche", non rimane che informare 
i lettori interessati dell’indirizzo a cui rivol¬ 
gersi per poter aspirare alla Vacanza Stu¬ 
dio di Caprese Michelangelo per l’anno 
1990. 

Scriverete quindi presso la: SEGRETERIA 
DEI SEMINARI INTERNAZIONALI - COMU¬ 
NE DI CAPRESE MICHELANGELO - 52033 
CAPRESE MICHELANGELO (AREZZO) TEL 
0575/793912-793611. 

Arrivederci, Caprese M., assieme al tuo Mi¬ 
chelangelo chino sulla tastiera di un com¬ 
puter! ■ 
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di FAUSTO MOLLICHELLA 


Continua la saga della serie MSX2 



4 

pletamente 

l’MSX-DOS. 


uesto serial non finirà mai di 
stupirci. 

Dopo l’uscita dell’MSX2 Plus, 
ecco un nuovo sistema ope¬ 
rativo, che rivoluziona corri¬ 
la vecchia versione del- 


Parliamo della versione DOS 2.20, un siste¬ 
ma operativo fantascientifico che solo la 
mente dello staff della ASCII poteva conce¬ 
pire. Il package è composto da un disco e 
da un modulo hardware da connettere allo 
slot esterno. 

Analizziamo il modulo. A prima vista ricorda 
molto quello d’interfaccia per il disco del 
VG8020 (il computer della PHILIPS, MSX1). 
Al suo interno troviamo dei chip per la ge¬ 
stione del disco, un banco RAM per l’e¬ 
spansione di memoria, la KANJI e il BASIC 
2.0 sulla stessa ROM. 


I chip per la gestione del disco permettono 
di lavorare in maniera decisamente più ra¬ 
pida del solito con tutte le routine di acces¬ 
so in lettura/scrittura. 

Per cui possiamo tranquillamente lavorare 
solo con il modulo hardware inserito senza 
bisogno di inserire il Sistema Operativo nel 
drive, il tutto in ambiente Basic. 

Non possiamo fare altrettanto in maniera 
inversa. 

Se inseriamo il disco del DOS senza il mo¬ 
dulo inserito, lavoriamo solo con il BASIC 
1.0 ovvero quello presente nel nostro com¬ 
puter. 

L’espansione di memoria porta il computer, 
sia esso MSX2 o MSX2 Plus a livelli elevati. 
Se possedete 64Kbyte di memoria minima, 
la porta a 160 Kbyte. 

Con un MSX2 e 128Kbyte di memoria, que¬ 
sta viene espansa fino a 288 Kbyte. 
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Trasmissione e ricezione di docu¬ 
menti originali in formato UNI A4, 
alta risoluzione d'immagine, facilità 
d’uso. È questo che oggi chiedi a un 
fax. A Bondwell BFAX100 puoi chie¬ 
dere molto di più. Tutte le prestazioni 
piti sofisticate di un fax del futuro a 
un prezzo che già oggi è più che 
conveniente. Collegato al telefono, 
funziona come un fax normale, colle¬ 
gato al Personal Computer sa gestire 
le comunicazioni. Si può utilizzare 
come scanner, copiatrice, stampante 
e computer fax terminal. È l'unico 
che ha la porta parallela per comuni¬ 
care con il PC, riceve messaggi sen¬ 
za carta e li personalizza automatica- 
mente. Gestisce la trasmissione mul¬ 
tipla a utenti diversi e trasmette in 
codice documenti riservati. 


Nella foto, Bondwell BFAX 100. 
4 modi operativi: scanner, copiatrice, 
stampante e computer fax terminal; 
polling remoto; sensore di immagini 
full contact; 16 livelli di grigi riprodu¬ 
cibili, compatibilità CCITT G3; tra¬ 
smissione in 25". 
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Mentre su un Sony 700 MSX2, la memoria 
sarà di ben 416 Kbyte. 

Infine, se siete fortunati possessori di un 
MSX2 Plus la memoria sarà ampliata fino a 
224 Kbyte ricordando che possiede 64 Kby¬ 
te RAM più 128 VRAM. 

La prova è stata effettuata su di un Plus fa¬ 
cendovi girare SUPER LAYDOCK e abbia¬ 
mo assistito ad uno spettacolo sonoro-gra¬ 
fico eccezionale. 

Normalmente negli MSX europei la Kanji 
ROM non è prevista anche perché chi si di¬ 
verte a scrivere con un Word Processor in 
giapponese? 

Eppure ci sono programmi, in fattispecie 
giochi, che usano tali caratteri. 

Il più delle volte tali caratteri sono sotto for¬ 
ma grafica per cui vengono visualizzati 
senza problemi, ma in casi come “Final Zo¬ 


ne" (TELENET JAPAN) che effettuano delle 
chiamate a detta ROM, non trovandola, vi¬ 
sualizzano tutta una serie di oscenità varie 
sullo schermo sporcandolo irrimediabil¬ 
mente. La KANJI ROM presente su questo 
modulo permette di ovviare a questo incon¬ 
veniente, visualizzando sullo schermo ciò 
che deve essere veramente visualizzato o 
meno. 

E poi se qualcuno conosce il giapponese e 
si vuole divertire a scrivere detta lingua..., si 
accomodi. 

Il BASIC 2.0, crediamo sia la parte più im¬ 
portante per tutti coloro che amano diver¬ 
tirsi a smanettare con tale linguaggio. Tro¬ 
viamo infatti comandi aggiuntivi come 
CALL CHDRV, che serve per cambiare il dri¬ 
ve corrente. 

Lavorando con il primo drive per passare al 
secondo, al terzo o al quarto, non dobbia¬ 
mo fare altro che dare da BASIC questo co¬ 


mando, seguendo la sintassi CALL CHDRV 
("x:”) dove “x" è il drive da usare. 

CALL RAMDISK serve per andare a lavora¬ 
re sul disco di sistema interno. 

Esiste, infatti, alPinterno di ogni MSX2 una 
RAMDISK che permette di lavorare molto 
più velocemente con accesso di I/O eleva¬ 
tissimo. 

CALL KANJI serve per richiamare ed abilita¬ 
re la KANJI ROM. 

Per tornare al modo tastiera europea, si di¬ 
gita CALL ANK. 

Arriviamo dunque al clou: il DOS 2.20. 
Questo nuovo Sistema Operativo dispone 
di ben 50 comandi aggiuntivi rispetto alla 
precedente versione. 

Per chi ha familiarità con l’MS DOS 3.10 
non dovrebbe incontrare difficoltà. 

Inoltre è CP/M compatibile e permette di fa¬ 
re cose che non ci saremmo mai sognati di 
fare. Sul disco del DOS troviamo tra l’altro 
due sottodirectory di esempio, che possono 
essere cambiate da BASIC a nostro piaci¬ 
mento. 

Per prima cosa una volta fatto partire biso¬ 
gna settare il numero di BUFFER del com¬ 
puter, la PATH del percorso di lettura direc¬ 
tory. 

Un consiglio per saggiare la praticità del 
DOS è quello di stampare la directory del di¬ 
sco su carta solo con il comando “DIR » 
PRN”, senza ricorrere al fastidiosissimo 
CTRL P che mandava ogni comando in 
output su stampante, o stampare il conte¬ 
nuto di un file grazie al comando interno 
“COPY nomefile + ext TO PRN”. Abbiamo, 
on-line, un HELP per ogni comando che vo¬ 
gliamo dare; ossia vogliamo avere maggiori 
informazioni su come funziona il FORMAT? 
Ebbene-basta dare HELP FORMAT e il no¬ 
stro DOS ci spiegherà in un attimo il suo 
funzionamento. 

Cito a mo’ d’esempio alcuni nuovi comandi 
che troveremo in questo DOS 2.20: 

- ASSIGN per cambiare il nome di un drive 
in un altro. 

Ad esempio la RAMDISK da DOS viene indi¬ 
cata come drive “H:”. 

Con l’ASSIGN lo possiamo far diventare 
“C:”. 

- CHDIR o CD per cambiare l’attuale direc¬ 
tory. 

Se siamo sulla directory radice o ROOT e 
vogliamo andare a lavorare sulla directory 
del Wordstar, diamo il comando CD WS. 

Il DOS, tramite chiamata al modulo hard¬ 
ware che regola la ROM del disco, ci per¬ 
mette di entrare nella nuova directory. 

Per uscirne “CD 

- CHKDSK per controllare lo status di un di- 


cm 



MSX-DOS2 


■HHMHI 


MSXi Disk Operating System 



•? 9 7L -K 22 

256kb 

RAM P*3®t 


ASCII 

ASCII CORPORATION 
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sco, di quanti file è composto, se ci sono dei 
cluster rotti li riaggiusta, quanto spazio c'è 
su disco libero e quanto ce ne è occupato, 
ecc. 

- CONCAT per il concatenamento di uno o 
più file in un unico file. 

- KMODE ci permette di settare la tastiera in 
Americana, Giapponese, Inglese, Francese, 
Tedesca, ecc. 

- MKDIR o MD per creare nuove sottodirec- 
tory 

- RMDIR o RD per cancellare sottodirectory 

- RNDIR o RN per dare un nuovo nome alle 
directory 

- RAMDISK per settare la RAMDISK fino a 4 
Mega 

- UNDfct per recuperare file cancellati 
inavvertitamente 

- VOL per cambiare la label del disco 
Inoltre da BASIC è possibile eseguire co¬ 
mandi di cambio, cancellazione, rimozione, 
rinominazione delle directory con il coman¬ 
do CALL xxxx. 

Come ho già accennato prima, il modulo 
hardware e il disco del DOS sono due cose 
indivisibili tra di loro. 

Infatti se abbiamo il modulo inserito possia¬ 
mo lavorare anche con la vecchia versione 
del DOS e con il BASIC 2.0. 

Ma se non abbiamo il modulo inserito, il 
DOS 2.20 non parte. 

Inserito il disco senza il modulo inserito, 
questo non parte e l’MSX entra in BASIC. 
Nella confezione del DOS 2.20 troviamo il 
modulo hardware, due dischi del DOS 2.20 
uno in versione inglese, l’altro in versione 
giapponese, il manuale del DOS 2.20 e una 
guida veloce alla consultazione e all’uso. 
Una nota. 


I manuali visionati sono tutti scritti in giap¬ 
ponese, e per il test ci siamo avvalsi delle 
conoscenze dell’MS DOS e aiutati dal- 
l'HELP interno al DOS stesso. 

Domanda pierina, dove reperirlo tale siste¬ 
ma operativo? 

Non in Italia al momento, infatti quello pro¬ 
vato ci è stato portato dal Giappone e co¬ 
gliamo l’occasione per ringraziare Tetsurò 
Kawabata. 

II suo prezzo è di 34800 yen, ma non biso¬ 
gna andare cosi lontano per ottenerlo. 

È disponibile anche in Germania ad un 
prezzo di 229,95 marchi e, in Spagna una 
"pre-release” DOS 2.0 a un prezzo vera¬ 
mente basso circa 45000 lire. 

Come ho detto si tratta di una “pre-relea¬ 
seovvero viene fornito solo il disco senza 
il modulo hardware e con qualche limitazio¬ 
ne e anche qualche “bug” rispetto al 2.20. 
In Germania potete rivolgervi tranquilla¬ 
mente a: 

HSH COMPUTERVERTRIEB GmbH 

An Der Umflut, 16 
D-4715 Davensberg 
Repubblica Federale Tedesca 
Telefono:(02593)-6168 
Telefax: (02593J-7234 

Per la Spagna rivolgersi a: 

LASP 

ALFONSO I, 28 
50003 ZARAGOZA 
Telefono: (952)-299060 

Per il Giappone vi possiamo fornire solo il 
telefono, in quanto l’indirizzo è indecifrabi¬ 
le: 

Telefono:03-(486)-8080 

Le considerazioni su questo nuovo sistema 
operativo sono facilmente immaginabili, ci 
troviamo di fronte ad un DOS di cui si era 
solamente sentito parlare tra gli addetti al 
settore. Voci che hanno preso consistenza, 
non più una legenda, un sogno, ma una 
realtà ben definita. 


PORTATILI, PERSONAL, 
VIDEOTELEFONO 
E PC FAX BONDWELL. 

SISTEMI PER 
PROGRAMMI AMBIZIOSI. 

Centri di distribuzione: 

CAGLIARI: Pac, Tel. (070) 66.90.96 • LIVORNO: Dee, Tel. (0586) 
89.12.92 • MILANO: Systeam, Tel. (02) 26.30.04.60 • ROMA: Discom, 
Tel. (06) 520.78.39 • ROMA: Elcom. Tel. (06) 701.26.02 • SALERNO: 
Nova, Tel. (089) 23.36.55 •TORINO: G.S.T., Tel. (Oli) 220.26.51 

Rivenditori autorizzati: 

ABRUZZO: Pescara, Computer Market, Tel. (085) 260.07 • EMILIA 
ROMAGNA: Anzola Emilia (BO), Teletex Italia, Tel. (051) 73.44.85 • 
o Faenza (RA), Bit Sistemi & Software, Tel. (0546) 62.05.70 • FRIULI: 
Trieste, Computer Way, Tel. (040) 73.30.41 • Udine, Side, Tel. (0432) 
47.18.33 • Udine. Comptronic, Tel. (0432) 67.65.39 (Percoto) • LAZIO: 
Cassino (FR). Computerline, Tel. (0776) 27.79.88 • Cisterna (LT), Linea 
Ufficio, Tel. (06) 969.48.88 • Formia (LT). A & R Elettronica, Tel. (0771) 
26.78.76 • Frascati (RM). Mrs, Tel. (06) 942,66.84 • Latina. Key Bit, 
Tel. (0773) 48.95.51 • Lavinio (RM). Bhs, Tel, (06) 982.31.43 • Ostia 
Lido (RM). Commercial Service, Tel. (06) 561.31.77 • Roma. Allei, Tel. 
(06) 523.03.52 • Roma. Asa Informatica. Tel. (06) 68.68.98 • Roma. 
Caporale, Tel. (06) 82.38.33 • Roma. Caporale e Sabatini, Tel. (06) 
43.03.51 • Roma. Cherubini. Tel. (06) 43.69.71 • Roma. Computel, Tel. 
(06) 581.66.73 • Roma. Computer e Azienda, Tel. (06) 31.65.05 • 
Roma. 2 DG, Tel. (06) 527.00.64 • Roma. Easy Data, Tel. (06) 785.80.20 
• Roma. Egis, Tel. (06) 791.05.93 • Roma. Full Service, Tel. (06) 
0 748.45.07 • Roma. Golden Office, Tel. (06) 810.28.06 • Roma. Intese, 
Tel. (06) 38.42.63 • Roma, Mar Informatica, Tel. (06) 611.75.93 • 
Roma. M System, Tel. (06) 557.19.08 • Roma. Megatek, Tel. (06) 
513.14.54 • Roma. Metro Import, Tel. (06) 360.76.00 • Roma. New Offi¬ 
ce. Tel. (06) 474.16.82 • Roma. Siscom, Tel. (06) 474.39.11 • Roma. 
Sistemi per l'Automazione, Tel. (06) 358.15.33 • Roma. Fiorini 82, Tel. 
(06) 427.04.45 • Viterbo. Apm, Tel. (0761) 34.07.40 • LIGURIA: 
Castelnuovo Magra (SP). New Soft s.r.l., Tel. (0187) 67.40.97 • La 
Spezia. Eletron di Canese F., Tel. (0187) 254.46 • Ponzano Magra (SP). 
A. Computer s.r.l., Tel. (0187) 63.02.76 • TOSCANA: Cecina (LI). Bo- 
nanni Elettronica, Tel. (0586) 88.05.13 • Empoli. (FI), S P 2000 s.d.f, Tel. 
(0571) 50.85.40 • Firenze. Paoletti Ferrerò s.p.a., Tel. (055) 29.49.74 • 
Firenze, Prisma s.p.a., Tel. (055) 422.18.45 • Firenze, Punto Soft di Spa- 
taro, Tel. (055) 70.06.17 • Firenze. Teleinformatica Toscana s.a.s, Tel. 
(055) 71.48.84 • Firenze, Video Soft di Benassi e Ciardi, Tel. (055) 
732.04.01 • Grosseto. Tuttocomputer s.r.l., Tel. (0564) 41.17.66 • Lido 
di Camaiore (LU). Il Computer di Veocoli, Tel. (0584) 652.00 • Livorno, 
C.P.E. Elettronica,Tel. (0586) 89.93.57 • Montecatini Terme (PT). Zanni 
Pier Luigi & C, Tel. (0572) 796.49 • Pisa. It. Lab. s.r.l., Tel. (050) 
55.25.90 • Pisa. C.H.S, sne di Bargagna e Russo, Tel. (050) 407.86 • 
Prato (FI). Video Futuro s.r.l., Tel. (0574) 59.37.93 • Siena. Video Movie, 
Tel. (0577) 28.32.24 • UMBRIA: Spoleto (PG). All Computers, Tel. 
(0743) 45.901 • Temi. Giano s.a.s., Tel. (0744) 59.486 • VENETO: 
Mestre (VE). Guerra, Tel. (041) 97.49.44 • Mestre (VE). Bit Computer, 
Tel. (041) 96.28.66 • Padova. Computer Point, Tel. (049) 875.08.19 • 
Padova, Bit Shop, Tel. (049) 448.01 • Verona. Bianchi, Tel. (045) 
59.00.11 


Speriamo che presto venga commercializ¬ 
zato anche in Italia ad un prezzo accessibi¬ 
le a tutti. 

Terminiamo annotando che tutti i program¬ 
mi che sono disponibile per MSX girano 
tranquillamente anche sul nuovo DOS, fat¬ 
ta eccezione per alcuni copiatori trac¬ 
cia-traccia come il “401 Os” che sfruttano il 
Memory Mapping. 

A presto con altre novità. ■ 


Bondwell offre 12 mesi di garanzia e un servizio qualificato 
con una rete di 52 centri di assistenza diffusi in tutta Italia. 


r51 Bondmell 


Per ricevere ulteriori informazioni e la documentazione 
su prodotti e punti di vendita, telefonare o scrivere a: 
BONDWELL ITALIA s.r.l. - Servizio Marketing - 
Via Canto, 19 - 20092 CINISELLO BALSAMO (Milano) - 
Tel. (02) 660.11.212 (r.a.) - Fax (02) 660.11.328. 
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ATTUALITÀ 



di CLAUDIO VERGINI 


Il panorama dei virus per Amiga ha subito 
da qualche tempo una svolta decisiva con 
la comparsa di “Revenge of Lamer Exter¬ 
minator” 


■ primi virus per la macchina 
i | Commodore si installavano 
(sulla scia deformai "stori- 
co” S.C.A.) sulle tracce 00 e 
i! 01, ossia sulle due tracce di 
boot di ogni disco AmigaDos. 

Il massimo danno che questi virus (come il 
Byte Bandit o il CCW che sono nati subito 
dopo) potevano arrecare era (ed è tuttora) 
quello di distruggere il boot-block di un di¬ 
sco: nel caso di un normale disco Amiga¬ 
Dos, niente problemi, ma nel caso di pro¬ 
grammi commercia li (specialmente giochi) 
che usano una procedura di caricamento 
particolare si è costretti a buttare il gioco 
con evidente perdita economica. 

Ma dal Byte Bandit, i virus hanno comincia¬ 
to anche a provocare altri più o meno dan¬ 
nosi “malanni” al nostro amato personal: il 
Byte Bandit, ad esempio, bloccava e reset- 
tava la macchina (anche se c’è una combi¬ 
nazione di tasti che restituisce vita alla 
macchina con il contenuto della RAM intat¬ 
to), il Revenge trasforma il pointer del mou¬ 
se in un "fallo maschile”, il Byte Warrior si¬ 
mula paurosi "read/write error”. 

Ma già da tempo è apparso sulla scena dei 
virus forse il fenomeno virale più dannoso 
per gli Amiga: The Revenge of Lamer Exter¬ 
minator (il ritorno dello sterminatore di im¬ 
becilli, con una più o meno libera traduzio¬ 
ne dall’Inglese). Questo è forse il primo fe¬ 
nomeno virale per Amiga che non si autori- 
produce e che non risiede nelle tracce del 
Boot-block: infatti si installa direttamente 
sul disco, sotto forma di file fantasma, che 
viene invocato dalla startup-sequence sot¬ 
to l’invisibile nome di “ 

Dopo essere stato chiamato, aspetta in me¬ 
moria fino al primo reset. 

Dopo ciò inizia a controllare ad intervalli 
random la presenza di dischetti sprotetti; 
una volta trovati, provvede a distruggere in 
un tempo ridottissimo alcune tracce vitali 
del malcapitato dischetto, rendendolo non 


il Ritorno 
del Virus 



più utilizzabile. 

Dopo questa terribile opera distruttrice se¬ 
guono ( come la maggior parte di virus che 
“si rispetti") tre schermate di testo che spie¬ 
gano il motivo di una simile “crudeltà”. 
“...Non avendo rilevato la presenza del vi¬ 
rus siete stati riconosciuti come Lamers 
(stupidotti, perdenti, deboli traducetelo co¬ 
me volete, ma il significato è lo stesso) e 
quella che avete subito è la giusta punizio¬ 
ne...”. 

Questo virus è sicuramente il prodotto di 


qualche pirata che ha particolarmente in 
odio la nuova categoria di Lamers (apro 
una parentesi: nel mondo della pirateria, 
specialmente nel mercato che ruota attor¬ 
no ad Amiga, i pirati che sproteggono han¬ 
no in odio tutti coloro che si limitano a co¬ 
piare i programmi da loro crackati, arrivan¬ 
do ad disprezzare perfino i propri clienti: è 
un fenomeno abbastanza recente, ma che 
sta marchiando con la non troppo piacevo¬ 
le qualifica di Lamers molti piccoli gruppi di 
spreaders che non sproteggono per niente 
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o poco...) che ha voluto, in questo modo 
punire tutti gli stupidotti che usano il com¬ 
puter : un intento non propio edificante... 
Comunque come tutti i virus visti fino ades¬ 
so anche il terribile Lamer Exterminator si 
può eliminare. Un buon rimedio è quello di 
usare il comunissimo DiskDoctor che prov¬ 
vede a scovare il file fantasma, avvertendo¬ 
ci indirettamente del pericolo. 

Il rimedio più sicuro è, però, l'ottimo virusx 
3.20 che riesce a scovare ben 17 virus, tra 
cui anche TIRO (quello che si “incolla" ai fi¬ 
le eseguibili). 

Il virusx 3.20 dell’oramai “penicillinico" Ste¬ 
ve Tibett riesce ad eliminare il Lamer Exter¬ 
minator (ma non solo quello) sia dalla me¬ 
moria che dai dischi, regalando ai nostri 
beneamati floppy la dovuta tranquillità. 

Il virusx è naturalmente di pubblico dominio 
è si può trovare su parecchie BBS aventi file 
per Amiga. 

Via modem il Lamer Ex. si può ricevere solo 
se si effettua il download di interi dischi 
warpati, mentre non si sono modi pratici 
per nasconderlo in singoli file. 

Comunque questa creatura divoratrice di 
dischi ha due particolarità: primo non si ri¬ 
produce ma si limita a distruggere (quindi è 
uno pseudo-virus); secondo genera in me¬ 
moria (stranamente solo sull’Amiga 1000) 
una stringa “Fuck”, la cui traduzione spero 
sia superflua. Sull’Amiga 500 tale stringa 
non viene creata. 

Naturalmente il Lamer Ex. non è l’ultimo fe¬ 
nomeno virale che è stato generato per 
Amiga: ce ne sono sempre di nuovi (Obe- 
lisk, Ultrafox, 16 Bit Crew o alcuni come il 
NorthStar che si mascherano da virus-killer). 
Ormai sembra che tale assurda produzione 
si sia fermata; l’ultimo "fenomeno" in ordi¬ 
ne cronologico è una schermata propa¬ 
gandistica con il seguente testo: "Compu¬ 
ter virus is a disease Terrorism is a tran- 
sgression Software piracy is a crime" segui¬ 
to da un "This is thè cure BGS9”. 
Piazzandosi nel blocco 1759 non crea dan¬ 
ni (almeno a me non ha mai distrutto nien¬ 
te): è solo fastidioso perché si presenta al 
momento del boot e fa perdere qualche se¬ 
condo; le prime volte è simpatico, e fa spe¬ 
rare in una sensibilizzazione di massa sia 
sui problemi del nostro Amiga (computer vi¬ 
rus...) sia su problemi ben più “umani" (ter¬ 
rorism is...), ma a lungo andare irrita abba¬ 
stanza. 

Questo è l’ultimo fenomeno, anche se è be¬ 
nigno, noi tutti della comunità informatica 
speriamo vivamente che la corsa al virus 
più dannoso sia terminata una volta per 
tutte. ■ 



LE MIGLIORI UTILITÀ AMERICANE PER C0MPUTERS 

IBM PC, XT, AT, PS/2, OLIVETTI, COMPAQ, AMSTRAD E TUTTI I COMPATIBILI* 

SOLO PROGRAMMI ORIGINALI CON GARANZIA 
UFFICIALE DEL PRODUTTORE 

I prezzi indicati comprendono IVA e spese postali franco. 


PCSG-LUCID 3D (offerta promozionale L. 300.000) L. 390.000 
PC Magazine Award for Technical Excellence (USA) • 12/1987. 

Primo foglio elettronico tridimensionale resi¬ 
dente in memoria: intercambiabilità dei dati in qual¬ 
siasi applicazione, numerazione europea, files 
compatibili 123, calcolo velocissimo, prestazioni 
sofisticate e straordinarie possibilità strutturali. 
Ogni cella può contenere un intero foglio di calcolo, o pagine di lesto, 
entrambi accessibili con un tasto. Menus, Funzioni, Macros totalmente 
assistiti, Finestre (9 fogli di calcolo sullo schermo), Notepad, Clipboard, 
Calcolatrice, Editore Limitato solo dalla capacità del disco fisso. 

TAKECHARGEL. New! (offerta lancio L. 185.000) L. 245.000 
Da solo, fa tutto ciò che fanno assieme dieci tra le più note 
utilità. Residente in memoria (soltanto 20 K). l'unico funzio¬ 
nante con programmi giganti, contiene tutte le utilità di cui si 
fa sempre uso! (software 600 K). 

PAUL MACE UTILITIES New Release (oltre i 32Mb) L. 196.000 
Insostituibile per il recupero dei files dopo formattazione accidenta 
le del disco fisso, «disastri» hardware o software, Virus, ecc. 3 dischi 
con dBFix. 17 utilità senza paragoni. Elette The Best of thè Year 
1987 (USA e Francia). 

PAUL MACE hTEST/hFORMAT... New Release 1988 L. 196.000 

Riconfigurazione (senza formattare) del fattore d'accesso al disco fis¬ 
so. con miglioramento da 50 a 600%. ricupero setlore Pool, formatta 
zione a basso livello, partizioni, controllo, diagnosi hardware del disco 
fisso, ecc. 

PAUL MACE G.R.A.S.P.... New Release 3.1. L. 280,000 

Presentazioni a livello professionistico (video e stampa), schermate e 
personaggi animati, demos, ecc Cattura, edizione (immagini e colori), 
archiviazione (testo o grafico) in formati BSAVE, PIC, PCX (PC Paint- 

brush. Ventura). GIF. Sopporta testo e grafica CGA. EGA. VGA, 
Hercules Incolor, ecc.. 

PAUL MACE ARTOOLS... New!.L 196.000 

Tutto il necessario per dare a G.R.A.S.P. senza difficoltà tecniche, 
le piu sofisticate roulmes d'animazione, e straordinari effetti speciali video 
* Tutti i nomi citati sono marchi registrati dai legittimi proprietari. 

MULTIWARE Via Sanvito. 60 21100 Varese (Va) 

(0332) 287576 PER ORDINI TELEFONICI E INFORMAZIONI 
(Rivenditori: consultarci) 

Totale allegalo L - 

Assegno circolare Assegno personale Assegno Postale 
C/C Postale 14832216 Vaglia Postale 

Pagherò in contrassegno al postino Firma- 

Ditta (o Nome)_Società (o Cognome)- 

Indirizzo-. 

CAP_Città_Tel_ 

p ivA/cod. Fise L_LJ_I_L .1 1 i J_Ll_LLLJ—U 

Desidero ricevere il disco-listino con il software fuori listino (nume 
rosi titoli) e le novità Allego L 3 500 m francobolli per contributo spese 


PAUL MACE Nvelope... New! (per Mac L. 145.000) L. 115.000 

Per catturare, editare, archiviare e stampare indirizzi (stampa vertica 
le, varii caratteri di stampa, etichette e buste tutti i formati, mailmg, ecc ). 
Compatibile con tutti gli elaboratori e stampanti, incluse HP o TI laser, 

□ PAUL MACE VACCINE... New!. L. 60.000 

Protezione del disco fisso e del sistema operativo ad alto livello, con¬ 
tro tutti i VIRUS del computer e tutte le alterazioni indesiderabili. 

□ REINSTAL... New! . L. 160.000 

Garantisce tutti i programmi protetti installati su disco fisso (pur¬ 
ché con disinstallazione), contro ogni irrimediabile rischio di perdi 
ta (optimizers e/o backup non selettivi, formattazione, «disastri» hard 
ware o software, ecc ). Funziona con tutti i sistemi di protezione 
e computers. 

□ PC-8/MULTITASKING. L. 290.000 

Esegue SIMULTANEAMENTE sotto DOS fino a 9 programmi, con 
qualsiasi emputer compatibile, senza linguaggio o sintassi speciale. 
Versione multi utente con 7 programmi + 2 terminali ANSI (o PC in 
emulazione), e possibilità di gestione a lunga distanza tramite MODEM. 


PC-8/MULTIUSER... New! . L. 1.175.000 

NEWSPACE... New Release. L. 220.000 

Aumenta la capacità in Mbytes di qualsiasi disco lisso (fino a 90%). 
QUAID - ANTIDOTE... New! . L. 155.000 

Ora indispensabile: localizza subito ed AUTOMATICAMENTE i files 
danneggiati da qualsiasi tipo di VIRUS che possa gradualmente con 
taminare il computer 

QUAID - COPYWRITE - New release 88.L. 130.000 


QUAID - ANALYZER - New professional release L. 345.000 
QUAID - DISK EXPLORER - New release 88. L. 140.000 
QUAID - The-Envelope-Please New release L. 100.000 

PIZAZZ - Desktop Publishing Image Editor . L. 200.000 

Per catturare qualsiasi schermata, trasformare colori in 30 toni di gri 
gio, ingrandire, rimpicciolire, finestrare. ruotare, e creare archivi d'im¬ 
magini. files compatibili con VENTURA. PAGEMAKER (.TIF) e PC 
PAINTBRUSH ( PCX) 

BACK-IT - Hard Disk Backup... New Release 88 L. 235.000 
Q-DOS-II - Hard Disk Manager... New Release 88 L. 155.000 
GS OPTIMIZER - Hard Disk Optimizer... NEW! L. 235.000 
WIND0WD0S - DOS Shell... New Release 88 L. 100.000 

EZ-MICROCACHE con SpeedWrite e SpeedSprint L. 190.000 
PRN-Matic • per cambiare i parametri di stampa L. 60.000 
JACK2 - Integrato (testo-calcolo-data base-grafica) L. 200.000 
TORNADO - Random Information Processor. L. 200.000 


WARP-TEN (velocizzatore) . L. 55.000 

RAMBAK (salvataggio disco RAM). L. 55.000 


POLYBOOST - Velocizz. (dischi, video, tastiera) L. 138.000 


LIST 10/89 


23 




























HARDWARE E SOFTWARE 


Amstrad Network-. 

LA RETE FACILE 



di GIANLUCA ATTURA 


La rete locale Amstrad Network è stata 
progettata in modo da aiutare utenti pro¬ 
fessionali a risparmiare tempo e denaro, 
permettendo a più utenti di condividere 
costosi hard disk, stampanti laser e mo¬ 
dem 


on il termine "rete locale” si 
indica un collegamento 
hardware/software che con¬ 
sente lo scambio di dati - do¬ 
ve per dati si intendono pro¬ 
grammi, registrazioni, documenti, posta 
elettronica - e la condivisione delle periferi¬ 
che tra stazioni di lavoro - generalmente 


Personal Computer, ma anche Mini e Main¬ 
frame - con la limitazione della distanza fra 
le varie stazioni, che debbono essere fisica- 
mente connesse fra loro attraverso collega- 
menti via cavo appositamente dedicati. 

A queste si affiancano le reti geografiche, 
che operano lo scambio di dati attraverso 
le linee telefoniche e che quindi non hanno 
problemi di distanza, ma quelli più gravi le¬ 
gati alla velocità di trasmissione ed agli ine¬ 
vitabili disturbi che si propagano durante i 
collegamenti. 

COSA OFFRONO IE RETI LOCALI 

Queste reti risultano praticamente indi¬ 
spensabili a chiunque utilizzi un determina¬ 
to numero di PC e non voglia investire i pro¬ 
pri capitali per fornire ognuno di essi di tut¬ 
te le periferiche a disposizione, che risulte¬ 
rebbero utilizzate solo in minima parte ri¬ 
spetto al lavoro totale. 


Un secondo motivo può essere senz’altro la 
possibilità di accedere a tutte le risorse of¬ 
ferte da ciascuna stazione di lavoro - in 
particolare le memorie di massa - senza bi¬ 
sogno di dover interrompere il lavoro del¬ 
l’operatore e senza dover trasferire i file ri¬ 
chiesti attraverso il sistema di copiare ciò 
che necessita su di un disco per riversarlo 
poi sul nostro PC. 

Senza considerare la possibilità di uno 
scambio di posta elettronica all’interno del¬ 
la rete, che permette di accelerare il lavoro 
senza appesantirlo. 

Perché tutto questo possa avvenire occorre 
però che la rete sia estremamente semplice 
da usare, poiché chi dovrà poi utilizzarla 
non debba passare il tempo che si rispar¬ 
mia coll’uso della rete cercando di capire 
come usarla 

L’uso della rete locale è quindi consigliata 
se non necessaria - agli uffici che abbiano 
moli di lavoro anche non eccessive, consi¬ 
derando che un sistema ben sviluppato rie- 
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sce a far vedere tutte le risorse come pro¬ 
prie della macchina ed evita per quanto 
possibile errori da parte dell’operatore. 

I limiti della rete locale risiedono nel fatto di 
essere appunto tale, ovvero nella distanza 
massima attraverso la quale si possono 
scambiare i dati. 

A questo però supplisce la rete geografica, 
e c’è da notare che runa non esclude l’al¬ 
tra, bensì l’interazione fra le due è sempre 
possibile. 

Per dare un’idea il limite tra una stazione e 
l’altra di una rete locale è di qualche centi¬ 
naio di metri senza l'uso di ripetitori (attra¬ 
verso i quali i limiti vengono virtualmente 
abbattuti). 

Distanze molto grandi possono essere su¬ 
perate solo grazie all’ausilio di mezzi che ri¬ 
chiedono un dispendio di capitali non giu¬ 
stificabile se non in caso di un assoluto bi¬ 
sogno di lavorare ad alta velocità, senza in¬ 
terferenze e con una maggiore sicurezza 
dal lato delle intercettazioni. 


COSE AMSTRAD NETWORK 

Amstrad NetWork è un pacchetto di comu¬ 
nicazione della casa inglese, distribuito re¬ 
centemente in Italia, che permette l’installa¬ 
zione di una rete locale tra Personal Com¬ 
puter ad alta velocità di trasmissione, di 
semplice utilizzo e con alcune particolarità 
che la differenziano da altre reti dello stes¬ 
so settore. 

Il pacchetto è composto dal software di ge¬ 
stione, da un numero di schede che vanno 
inserite una per PC, e da un ampio manua¬ 
le che guida passo passo all’installazione e 
all’uso. 

Ovviamente perché la cosa abbia senso 
occorrono almeno due Personal Computer, 
dei quali uno funge da server, cioè da con¬ 
trollore delle operazioni di rete, e necessita 
di disco rigido. 

Come vedremo lungo la rete possono esse¬ 
re installati più server, a seconda delle ne¬ 
cessità. 

L’installazione del sistema è piuttosto sem¬ 
plice anche per un non addetto ai lavori, e 
viene ultimata al livello hardware in pochi 
minuti. 

Basta infatti inserire la scheda di comuni¬ 
cazione in uno slot libero e collegarle il 
doppino telefonico schermato per la tra¬ 
smissione. 

Questo viene quindi collegato ad una sca¬ 
tola di distribuzione a quattro entrate da cui 
si dipartono i doppini delle altre unità. 

La distanza massima tra due stazioni è di 


300 metri senza ripetitori, ed i doppini utiliz¬ 
zati sono schermati contro le interferenze di 
natura elettrica che si possono incontrare 
lungo il percorso. 

A questo punto si passa all’installazione del 
software di gestione, che viene pilotata da 
un programma dall’uso molto semplificato. 
Da notare che l’intera gestione avviene, sia 
in fase di installazione che d’utilizzo, attra¬ 
verso un’interfaccia utente a finestre, sem¬ 
plificata al massimo, pur mantenendo tutte 
le caratteristiche della rete locale. 

A richiesta il software di gestione può esse¬ 
re installato sulle singole schede attraverso 
l’inserimento di una eprom in uno zoccolo 
vuoto già predisposto. 

Questo può risultare utile non solo per l’in¬ 
cremento della velocità, già elevata, ma in 


particolar modo in tutti quei casi in cui si 
vuole evitare che chi usi la stazione possa 
modificare o rovinare i floppy, cosa che ac¬ 
cade spesso negli uffici per inesperienza. 

Il programma riconosce la configurazione 
del sistema e rispetto a questa pone do¬ 
mande in merito all’utilizzo del nodo e alle 
sue priorità. 

Alla fine vengono creati determinati file di 
utilità sui dischi ed il sistema viene riconfi¬ 
gurato permettendo a Amstrad NetWork di 
partire automaticamente al momento del¬ 
l’accensione della macchina, a meno che 
non si sia scelta la partenza “manuale". 
All’inizio va installato il primo server, sul 
quale vanno registrate tutte le risorse mes¬ 
se a disposizione dalla rete e dai singoli no¬ 
di. 
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Rappresentato 
nel disegno qui 
a fianco 
ecco un esempio 
di applicazione 
dell'Amstrad Network 
in un ufficio 
di medie dimensioni, 
con stanze 
e piani contigui 
fra di loro. 



In un secondo tempo, qualora se ne renda 
necessario, si possono installare altri server 
lungo la linea, in modo da snellire le opera¬ 
zioni, nel qual caso il sistema va riconfigu¬ 
rato in funzione della divisione dei compiti. 

Il server può essere dedicato, ovvero utiliz¬ 
zato solo a quello scopo, oppure configu¬ 
rato anche come stazione di lavoro. 

Al limite si possono configurare tutti i nodi 
anche come server, ma bisogna considera¬ 
re che questo può andare a scapito della 
velocità operativa dei singoli nodi che fini¬ 
rebbero col sovraccaricarsi di lavoro, men¬ 
tre lo scopo della rete è l’esatto contrario. 
Dopo il server si passa ai nodi, ai quali van¬ 
no assegnati i limiti operazionali attraverso 
un menu di configurazione dal quale si 
scelgono il gruppo di appartenenza, la 
priorità di accesso da parte di altri e la prio¬ 
rità di accesso su altri nodi, sia in lettura 
che in scrittura. 

Quindi se per esempio un nodo ha priorità . 

50 di lettura - in un range che va da 1 a 100 
non potrà leggere su nodi a priorità 60 e se 
ha priorità 40 in scrittura, potrà ovviamente 
scrivere su nodi a priorità inferiore. 

In tal modo si può inibire l’accesso a perife¬ 
riche della stessa macchina, ponendole a 
priorità maggiore del nodo, rendendole co¬ 
sì utilizzabili solo dall’esterno. 

Data la finalità del sistema l'installazione 
dovrebbe essere realizzata da un tecnico 
specializzato, ma dopo aver provato il siste¬ 
ma viene il dubbio se questi sia veramente 
necessario. 

Questa infatti è una delle peculiarità princi¬ 
pali di Amstrad NetWork, l’estrema facilità 
d’uso anche per un non addetto ai lavori, 
nonostante la quale il sistema offre presta¬ 
zioni di tutto rispetto. 

51 possono collegare insieme fino a 64 sta¬ 
zioni, in teoria in quanto il pacchetto ven¬ 
duto è solo per tre. ognuna delle quali può 
supportare tre periferiche che possono es¬ 
sere condivise dal sistema oppure rese invi¬ 
sibili ad esso. 

In pratica ad ogni nodo del sistema viene 
assegnata una serie di priorità - e qualora..* 
necessario una password - che permettono 
di svolgere determinate funzioni e non altre, 
in modo che ogni nodo possa svolgere solo 
le sue mansioni. 

Per quanto riguarda l’uso in comune delle 
periferiche, questo avviene in modo da non 
interferire con le operazioni dei singoli nodi. 
Ad esempio se un nodo ha bisogno di un fi¬ 
le o di leggere la directory di un hard disk di 
un un altro nodo, viene passata la richiesta 
al nodo in questione. 


Se la memoria di massa al momento del¬ 
l’accesso da parte di un nodo è già in uso 
da un altro, la richiesta rimane in attesa ed 
il nodo richiedente nel frattempo può con¬ 
tinuare le operazioni e, al momento dell’ar¬ 
rivo di quanto richiesto, si aprirà una fine¬ 
stra sullo schermo la quale avvisa che le 
informazioni sono in attesa di essere visio¬ 
nate. La gestione delle stampanti avviene 
più o meno come nelle altre reti locali, ov¬ 
verosia i file da stampare vengono inseriti 
in un buffer di memoria del nodo ed il no¬ 
me del documento, il nodo di provenienza 
e la stampante di destinazione vengono 
aggiunti in fondo alla lista gestita dal ser¬ 
ver, che provvede ad indirizzarli, ma risulta 
intelligente nel caso che la lunghezza dei 
file non ancora stampati risulti fortemente 
discordanti, accordando priorità a quelli 
molto corti rispetto a quelli di lunghezza 
ben superiore. 

A parte è disponibile un pacchetto che 
permette l’utilizzo intelligente dei modem a 
disposizione, che mette in lista la richiesta 
d’utilizzo di questi come per tutte le altre 
periferiche e che mantiene lo stesso crite¬ 
rio d’utilizzo del programma principale. 


CONSIDERAZIONI FINALI 

Abbiamo descritto una rete che opera ad 
una velocità nominale di 1 Mbit/sec e per¬ 
mette di trasferire un documento di 100 
KByte dal server ad una stazione in meno di 
6 secondi e che mette a disposizione ulte¬ 


riori servizi, come la posta elettronica e un 
sistema di sicurezza. 

Sono disponibili espansioni per la rete, che 
permettono di arrivare a 64 stazioni colle¬ 
gate e nella rete possono essere inseriti an¬ 
che computer IBM del tipo PS/2, dotati di 
bus MicroChannel, purché vengano utiliz¬ 
zate le apposite schede disegnate per que¬ 
ste macchine. 

È possibile l’uso di un modem asincrono in 
rete utilizzando il programma NOS Talk, 
che con modem predisposti opera in stan¬ 
dard Hayes compatibile e autodial. 

La rete locale offre un mondo di nuove op¬ 
portunità agli utenti che vogliono fare più di 
condividere risorse e file. 

Infatti oggi viene lanciata anche una serie 
di programmi Amstrad Multiutente. 
AccountMaster LAN. SuperCalc 4 LAN e 
WordStar-AMS LAN formano il primo grup¬ 
po, al prezzo rispettivamente di 299 sterline 
per il primo ed di 199 sterline ciascuno degli 
ultimi due. 

Poiché il mondo delle rete locali è una novi¬ 
tà nel campo del personal computer per 
molti utenti, Amstrad andrà incontro alla 
sua sempre crescente base d’utenza con 
un completo programma di corsi d’adde¬ 
stramento e hot line telefonica di supporto. 
Nella sua semplicità d’uso Amstrad Net¬ 
Work cancella anche lo stereotipo del mez¬ 
zo che, data la sua complessità d’uso, ap¬ 
pare all’utente alle prime armi o poco atten¬ 
to, di sicura qualità. 

Cos’altro potremmo chiedere ad una rete di 
queste dimensioni? ■ 
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a Disco 

deh 'Economia 


di PAOLO CIARDELLI 

LISTA Tpresenta 79 anni di economia ita¬ 
liana in un dischetto, grazie ai programma 
PDG ideato dal Prof. Clopper Almon 


fm 'annuncio è recente. 

| T L’ISTAT, l’istituto responsa- 

bile delle statistiche econo- 
"""T miche e non, ha messo a di- 
338 sposizione dell’utenza inte¬ 

ressata una raccolta di dati contenuti su di 
un dischetto da 5,25 pollici. 

Un dischetto, si di numeri, ma un’iniziativa 
inedita per quanto riguarda il supporto 
non più cartaceo ed anche un software 
per poter accedere alla base di dati e po¬ 
terli presentare graficamente. 

Per approfondire il discorso abbiamo con¬ 
tattato dei funzionari degli uffici regiona¬ 
li dell’lstat e qui cogliamo l'occasione per 
ringraziarli e per anticipare che questa 
sarà la prima di altre iniziative del gene¬ 
re. 

Nucleo centrale del pacchetto software è il 
programma PDG usato dall’ISTAT per lo 
studio di informazioni statistiche. 

Ideato e realizzato dal Prof. Clopper Almon 
professore di economia all’Università di 
Maryland, è scritto completamente in lin¬ 
guaggio C e può essere utilizzato su qual¬ 
siasi computér IBM o compatibile. 

È uno dei pochi programmi in circolazione, 
che consente di utilizzare base di dati resi¬ 
denti su floppy disk, ed ha la capacità di 
rendere il più semplice possibile l’analisi dei 
dati statistici attraverso un semplice perso¬ 
nal computer. 

Prima di approfondire il discorso, per dove- 


istituto centrale di statistica 


banca dati 

conti economici nazionali 
serie annuali 1970-1988 


MANUALE AD USO DEGLI UTENTI 
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re di cronaca, ricordiamo che il programma 
è Public Domain, per cui di uso libero, come 
di norma per la maggior parte del software 
studiato da enti didattici americani. 

Il PDG è costituito da due dischi da 360 
KByte. 

Il primo contiene il software per l’uso dell’ar¬ 
chivio, mentre il secondo contiene i dati veri 
e propri (archivio). 

L'installazione del programma avviene co¬ 
me la maggior parte dei programmi diffusi 
sul mercato, modificando, per un corretto 
funzionamento del programma, rispettiva¬ 
mente i file AUTOEXEC.BAT e CONFIG.SYS. 
La manipolazione di questi file potrebbe 
provocare degli inconvenienti e per cui il 
PDG viene fornito di serie con un editor 
chiamato TED.COM, a dire la verità non 
molto potente, messo a disposizione dalla 
rivista PC MAGAZINE, ma in grado di effet¬ 
tuare tranquillamente le varie operazioni di 
modifica dettate dall’utente. 

Dopo aver fatto queste semplici operazioni 
si resetta (o ancora meglio si spegne) la 
macchina con il comando CTRL + ALT + 
DEL ed a questo punto la base di dati è 
pronta ad entrare in funzione. 

All’inizio del programma possiamo fare due 
scelte: 


1) conoscere il PDG 

2) visualizzare l’archivio C.E.N.A. (Conti 
Economici Nazionali serie Annuale 
1970-1988) dell’ISTAT. 

Per far partire il programma, basta digitare 
sulla tastiera PDG, dopo essere entrati, nel¬ 
la directory ISTAT, cd istt precedentemente 
preparata. 

I primi comandi che vengono esplicati sono 
quelli utilizzati per uscire dal programma. 
Possiamo usare 0, se non vogliamo effet¬ 
tuare nessuna scelta oppure CTRL + 
BREAK. 

Quest'ultimo comando deve essere utilizza¬ 
to nei casi di emergenza, cioè quando il 
programma dovesse subire dei malfunzio¬ 
namenti. 

Come qualsiasi base di dati il PDG deve po¬ 
ter effettuare 3 operazioni essenziali: 


1) ACCESSO ALL’ARCHIVIO 

2) ISPEZIONI DEI DATI 

3) ESTRAZIONI DEI DATI. 
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ACCESSO ALL 7 ARCHIVIO 

Per quel che riguarda il primo punto, pos¬ 
siamo dire che l’accesso all’archivio è già 
automatizzato nel file di configurazione. 
Può essere usato un qualsiasi archivio, se¬ 
guendo logicamente sempre le scrupolose 
istruzioni contenute nel manuale (natural¬ 
mente interamente in italiano e non tradot¬ 
to) del programma. 

Al momento l’archivio che possiamo utiliz¬ 
zare è quello che ci è stato fornito diretta- 
mente dall'ISTAT e denominato CENA. 

ISPEZIONE DEI DATI 

Per il secondo punto, invece, l’ispezione dei 
dati può essere eseguita per diversi motivi, 
come ad esempio conoscere i nomi ed i va¬ 
lori delle variabili, oppure compiere delle 
analisi preliminari. Il programma è fatto per 
lavorare con due aree. 

La prima area definita con il simbolo a è ri¬ 
servato all'ARCHIVIO, mentre la seconda 
definita con w è riservato allo spazio di la¬ 
voro (workspace). 

In questa parte del programma quando vo¬ 
gliamo avere la lista dei nomi delle variabili 
dell’archivio sarà sufficiente digitare il co¬ 
mando: LIS A. 

Per ottenere la lista dei nomi delle variabili 


prodotte oppure introdotte durante la se¬ 
duta di lavoro sarà sufficiente digitare il co¬ 
mando: LIS W. 

Se infine, vogliamo effettuare la stampa dei 
nomi delle variabili ed il loro significato do¬ 
vremo far ritorno al sistema operativo DOS 
ed usare il comando PRINT come segue: 
PRINT CENA.STB. 

La sezione ISPEZIONE DATI è fornita di un 
comando che ci permette di effettuare la 
vera e propria visualizzazione dei dati. 
Questo comando è definito con il nome di 
LOOK al quale bisogna affiancare il nome 
del file, generalmente seguito dall’estensio¬ 
ne STB (sigla che contraddistingue le strut¬ 
ture di tavole). 

Se il nome del file dovesse coincidere con il 
nome della base di dati, basterà utilizzare il 
comando LOOK senza dover specificare il 
nome del file. 

Quando il file sarà visualizzato sullo scher¬ 
mo, per spostarci da una riga all’altra, po¬ 
tremo usare tranquillamente i tasti cursore 
insieme ai tasti di PgUp e di PgDn. 

A questi comandi se ne aggiungono altri 
come per esempio il comando F, che cerca 
le stringhe di caratteri sia tra gli acronimi 
che tra le variabili. 

Il comando P che mostra le 4 più recenti os¬ 
servazioni di tutte le variabili. 

Il comando T che esegue una lista di tutte le 
variabili più recenti. 


LIST 10/89 





























HARDWARE E SOFTWARE 


Infine il tasto G che effettua il grafico della/e 
variabile/i su cui è posto il cursore. 

Per uscire da questa fase del programma 
sarà sufficiente premere il tasto ESC. 


COME CONOSCERE I VALORI 
DELLE VARIABILI 

I valori delle variabili sono posti in ordine di 
cronologico. 

La data di riferimento viene descritta solo 
con le ultime due cifre dell'anno 
I dati possono essere fatti con cadenza an¬ 
nuale, semestrale, trimestrale e mensile. 
Quindi nel caso di cadenza trimestrale ver¬ 
ranno visualizzate sul monitor i 4 periodi 
compresi nell'anno 

I valori delle variabili vengono evidenziate 
con il comando: 

TYPE <nome della variabile><data inizia- 
le><data finale». 

Quindi per far apparire una tabella in parti¬ 
colare sarà sufficiente digitare il comando 
citato sopra insieme al nome della variabile. 


COME COMPIERE DELLE ANALISI 
GRAFICHE PRELIMINARI 

Per poter ottenere il grafico di una determi¬ 
nata variabile, dobbiamo usare il comando 
chiamato GRAPH o più facilmente GR. 
Insieme al comando, va aggiunto anche il 
nome della variabile di cui vogliamo avere 
la rappresentazione grafica. 

Per rendere più elegante lo schema potre¬ 
mo, grazie al comando TITLE, far compari¬ 
re in alto a sinistra della rappresentazione il 
titolo deH’argomento trattato. 

Il massimo numero di variabili ammesso per 
il corretto svolgimento della rappresenta¬ 
zione è di 4; vale a dire che possiamo rap¬ 
presentare 4 grafici contemporaneamente. 
Molte volte il confronto fra più variabili in¬ 
sieme può, agli occhi dell’utente, risultare 
confusa a causa della differenza di gran¬ 
dezza delle variabili. 

Per ovviare a questo piccolo, ma noioso, in¬ 
conveniente si può ricorrere, quindi, al co¬ 
mando MGRAPH che definisce delle scale 
di rappresentazione verticali. 

Per poter ampliare la scala di rappresenta¬ 
zione di una determinata variabile, possia¬ 
mo usare il comando VRANGE come segue: 

VRANGE minimo massimo: dove vengono 
stabiliti il minimo ed il massimo; 


VRANGE minimo; viene definito solo il mini¬ 
mo; 

VRANGE minimo lineai Iinea2... massimo: 
vengono definiti sia il valore minimo, massi¬ 
mo e le varie linee intermedie. 

Per cancellare un'istruzione VRANGE usata 
in precedenza, dobbiamo usare l'istruzione 
VRANGE OFF. 

Per poter personalizzare un grafico è suffi¬ 
ciente far precedere l’istruzione GRAPH o 
MGRAPH dal comando 

LEGEND<OFF:ON» 

dove con off si omette la legenda (intesta¬ 
zione) del grafico e con la si riabilita. 

Una volta fatto, il grafico può essere stam¬ 
pato magari con un’interfaccia a seconda 
della scheda grafica montata sul vostro 
computer Se avete una CGA basterà ese¬ 
guire il comando PrtSc (stampa della 
schermata). 


ESTRAZIONE DI DATI 

L’estrazione dei dati può essere molto utile 
in particolar modo per effettuare delle di¬ 
verse elaborazioni e per produrre delle ta¬ 
belle. 

L’istruzione essenziale per poter effettuare 
queste operazioni è il comando MATTY che 
consente all'utente di poter fare il trasferi¬ 
mento delle informazioni in un file compo¬ 
sto solo ed esclusivamente da caratteri 
ASCII. 

Per ottenere questo file, bisogna specifica¬ 
re il nome del file oggetto e tutte le variabili 
che vi verranno versate. 

Sintatticamente l’operazione avviene nel 
seguente modo: 

MATTY <nome del file» <data in iniziale» <da- 
ta finale» 

successivamente all’esecuzione del co¬ 
mando apparirà la richiesta per i nomi delle 
variabili: 

<GIVES SERIES NAMES». 

Nel comando MATTY il nome del file può 
essere omesso: in tal caso il risultato del¬ 
l’operazione verrà espresso solo ed esclusi¬ 
vamente sul video 

Il file ASCII che otteniamo da questa opera¬ 
zione. logicamente può essere rivisto e ma¬ 
nipolato a piacere dall’utente attraverso un 
qualsiasi editor Si ha inoltre la possibilità di 


poter trasferire i dati anche in un foglio elet¬ 
tronico (ad es. LOTUS 1-2-3). 


COME EFFETTUARE LA 
COSTRUZIONE DI TABELLE 

La costruzione delle tabelle avviene attra¬ 
verso il programma COMPARE. 

Questo particolare programma ha sia la 
possibilità di creare delle tabelle con dei da¬ 
ti attribuiti dall'utente, e sia delle simulazio¬ 
ni tra i dati immessi ed uno o più modelli at 
finenti a quel particolare tipo di situazione 
Per costruire la tabella, bisogna definire il ti¬ 
tolo e l’intestazione delle colonne, seguite 
da dei caratteri definiti in una particolare 
tabella che ora per motivi di tempo non 
possiamo elencarvi 

Dal punto di vista pratico dovremo agire 
nella seguente maniera: 
digitare COMPARE e successivamnete ri¬ 
spondere alle seguenti domande nella ma¬ 
niera più precisa possibile. 

Le domande sono: 

SHOW ALTERNATIVES AS (A)CTUAL, 
(D)EVIATIONS, OR (P)ERCENTAGES? 

e poi: 

WHAT IS THE NAME OF THE BASE CASE 
BANK? 

In questo caso dobbiamo specificare il no¬ 
me della banca dati da noi usata; dopo 
aver inserito il nome ci apparirà il messag¬ 
gio INDEX READ, che annuncia l’inizio della 
lettura del file index dall'archivio da noi 
specificato. 

E per finire bisogna inserire il nome della ta¬ 
bella e il nome del file di output. 


COME APPROFONDIRE IL PDG 

Per approfondire la conoscenza del PDG 
sarà sufficiente entrare nella directory PDG 
facendo: 

cd PDG 

ed eseguire il comando PDG demo.ita. 

A questo punto il PDG vi farà una vera e 
propria lezione in lingua italiana e premen¬ 
do un tasto a caso potrete sfogliare tutte le 
pagine disponibili. 
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di GIAN PIERO ROSI 

Dalla città più caotica del mondo, un com¬ 
pressore di file di altissima qualità: gli 
Orientali colpiscono ancora... 


■h ra inevitabile che, nell’era 
i della telematica, si scatenas- 

se questa affannosa corsa 
alla “compressione” dei file. 
ilB Comprimere un file significa 
ridurne la lunghezza con particolari algorit¬ 
mi e stratagemmi, in modo tale che diven¬ 
gano più semplici e veloci alcune operazio¬ 
ni (ad esempio la trasmissione del file via 
modem). Ovviamente è possibile in seguito 
"decompattare" il file, facendolo tornare 
alle dimensioni originali. I più quotati "vir¬ 
tuosi” della programmazione si danno bat¬ 
taglia, con l'obbiettivo di compattare un file 
al massimo livello e nel minor tempo possi¬ 
bile, accelerando contemporaneamente il 
tempo di decompressione. 

E tutto questo sembra essere stato perfetta¬ 
mente raggiunto dall’utility LHarc creata da 
Haruyasu Yoshizaki che promette un rap¬ 
porto di compressione senza rivali, a scapi¬ 
to di un leggero rallentamento nella veloci¬ 
tà di compattazione. 

LHarc fornisce prestazioni molto sofisticate 
a proposito dei file auto-decompattanti: 
questi archivi hanno estensione “.COM” o 
“.EXE" e, dopo aver semplicemente digitato 
il loro nome, si decompattano automatica- 
mente ricostituendo i file primitivi. LHarc in¬ 
troduce però delle innovazioni molto inte¬ 
ressanti, di cui parleremo dettagliatamente 
più avanti. 


COME SI USA LHARC 

È sufficiente digitare “LHarc” per visualiz¬ 
zare la schermata di HELP, con tutte le 
istruzioni necessarie ad un uso corretto del 
programma. 

Ecco la sintassi completa: 

LHarc [comando] [/<switch> [-1 + | 2 | <op- 
zione>]j <nome archivio» [<path-name>] [«di¬ 
rectory principale» / :] 

Gli switch che vanno inseriti dopo il coman¬ 
do, possono essere digitati in gruppo, uno 
di seguito all’altro senza spazi vuoti. 

Il path-name comprende il nome della di¬ 
rectory ed il nome di un file, ad esempio: 


IHARC 

VERSIONI 

1.13 


Ab 
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c:listprogrammilharc 

89È possibile dichiarare la “directory prin¬ 
cipale”*, ovvero quella che sarà assunta co¬ 
me directory corrente e non sarà specifica¬ 
ta nella memorizzazione dei file. 

Inoltre, dichiarando nel file di sistema "con¬ 
fig.sys" la variabile di ambiente LHARC, 
qualunque switch può essere settato per 
default. 

Facciamo un esempio di come si può effet¬ 
tuare questa operazione: 

SET LHARC = /we: /r2 


/ COMANDI 

Il primo carattere digitato dopo la parola 
"LHarc" rappresenta il tipo di comando 
che si vuole impartire. 

Ecco, in dettaglio, i comandi: 

A (Add) 

Esempio: LHarc a Archivio.LZH file.est 
Questo comando aggiunge il file "file.est" 
ad "Archivio.LZH". Se “Archivio.LZH" non 
esiste, allora LHarc lo crea. 

Tenete presente che se in “Archivio.LZH" 
esiste già un file di nome "file.est", esso ver¬ 
rà rimpiazzato dal nuovo. 

U (Update) 

Esempio: LHarc u Archivio.LZH file.est 
L’unica differenza (ma sostanziale) tra il 
comando Add ed il comando Update consi¬ 
ste nel fatto che quest’ultimo, prima di sosti¬ 
tuire un file con un’altro all’interno dell’ar¬ 
chivio, esegue un confronto sulla data dei 
file. 

Per ciò che riguarda il comando Add, ab¬ 
biamo detto che se il nome del file da com¬ 
pattare è già presente nell’archivio, LHarc 
sostituirà il vecchio con il nuovo. Il coman¬ 
do Update, invece, effettuerà la sostituzione 
soltanto se la data del file da compattare è 
più recente di quella del file già inserito. 

F (Freshen) 

Esempio: LHarc f Archivio.LZH file.est 
Utilizzando il comando freshen, il file verrà 
compattato solamente se nell’archivio ne 
esiste già una versione con lo stesso nome 
ma con data anteriore. 

Se nell’archivio non è presente un file con lo 
stesso nome, non si sortirà alcun effetto. 

M (Move) 

Esempio: LHarc m Archivio.LZH file.est 
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La linea di comando precedente equivale 
alle due linee: 

LHarc u Archivio.LZH file.est 
DEL file.est 

Quindi l'effetto che si otterrà è quello di 
“spostare" file.est all’interno dell’archivio 
compattato. Questo comando va usato con 
molta cautela. Potreste rischiare di perdere 
in modo definitivo il file originale, dal mo¬ 
mento che quest’ultimo viene cancellato 
dopo la compattazione. 

E (Extract) oppure X (eXtract) 

Esempio 1: LHarc e Archivio.LZH 
Così si estraggono dall’archivio tutti i file, 
posizionandoli nella directory o nel drive 
specificato. 

Se la directory specificata non esiste, LHarc 
provvederà ad avvertirvi, suggerendo di 
crearla. 

Esempio 2: LHarc e Archivio.LZH file.est 
Estrae dall'archivio in questione esclusiva- 
mente “file.est’’. Se è già presente all’ester¬ 
no un file con lo stesso nome, esso verrà 
rimpiazzato, ma solo se la sua data è ante¬ 
riore a quella del file appena decompattato. 
Esempio 3: LHarc e Archivio.LZS file.est 
Estrae il file specificato da un archivio crea¬ 
to con l’utility Lare versioni 3.xx. 

P (disPlay) 

Esempio: LHarc p Archivio.LZH file.est 
Estrae "file.est” dall'archivio e lo invia verso 
l’output standard. 

D (Delete) 

Esempio: LHarc d Archivio.LZH file.est 
Elimina “file.est" dall'archivio specificato. 

L (List) 

Esempio: LHarc I Archivio.LZH 
Con questo comando si ottengono infor¬ 
mazioni su tutti i file contenuti nell’archivio, 
tra cui il numero di byte del file prima e do¬ 
po la compattazione, data e ora di creazio¬ 
ne e percentuale di compattazione. Se il no¬ 
me del file è preceduto dal simbolo “ + ”, si¬ 
gnifica che è contenuto in una sottodirec¬ 
tory. Aggiungendo lo switch /x, il nome del 
file verrà visualizzato in forma estesa (eX- 
tended): ad ogni file verranno dedicate sul 
video due linee, la prima contenente il nome 
con il path-name completo e la seconda 
con le restanti informazioni. 

È possibile selezionare i file di cui si voglio¬ 
no ottenere le informazioni, utilizzando la 


classica tecnica dei caratteri jolly. 

Esempio 1: LHarc I Archivio.LZH *.exe * bat 
prova.89 

Esempio 2: LHarc I Archivio.LZH ??arc.* 

V (View) 

Esempio: LHarc v Archivio.LZH 
Questo comando equivale perfettamente a: 
LHarc I /x Archivio.LZH. 

S (Self-extract) 

Esempio: LHarc s [/x] [k<KEY>] Archivio.LZH 
Crea un file “auto-decompattante" con 
estensione ".COM" o ".EXE" se l’archivio 
supera i 64 Kbyte, partendo da un archivio 
già compattato con estensione ".LZH”. 

T (Test) 

Esempio: LHarc t Archivio.LZH 
Il comando di test provvede a verificare l’in¬ 
tegrità dei file contenuti nell'archivio speci¬ 
ficato, controllando il valore di CRC. 


GII SWITCH 

Gli switch vanno inseriti dopo il carattere 
“/”, raggruppati tutti assieme, usando i ca¬ 
ratteri minuscoli. Tenete presente che se 
usate gli switch “v” e "w" essi devono esse¬ 
re inseriti obbligatoriamente al termine del¬ 
la sequenza. 

Inserendo il simbolo “ + " o il simbolo “-" 
dopo lo switch, quest’ultimo viene rispetti¬ 
vamente attivato o disattivato. 

Il simbolo "2”, invece, fornisce delle parti¬ 
colari opzioni per gli switch /r e /v, come ve¬ 
dremo in seguito. 

Inserire lo switch senza uno di questi sim¬ 
boli, significa invertire il suo stato da "on” a 
"off” e viceversa. 

Ecco una breve spiegazione sul funziona¬ 
mento dei vari switch: 

/x[- | +] (eXtend file names) 

Questo switch è di fondamentale importan¬ 
za. Supponiamo di voler compattare due fi¬ 
le aventi lo stesso nome, ma contenuti in 
due diverse directory. Essi non potrebbero 
essere in seguito identificati essendo omo¬ 
nimi e si otterrebbe il messaggio “same na- 
me in another path” (stesso nome in un’al¬ 
tro percorso). 

Utilizzando la forma estesa, invece, verrà 
memorizzato anche il path-name completo, 
ovvero il percorso compiuto per raggiunge¬ 
re il file. In questo modo non si avranno pro- 
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LHarc version 1.12b Copyright (c) Haruyasu Yoshizaki 1988-89 

s=========:=s===s==ss===s====s:ss=ss:ss:s==:s::sssrs==:sss:sssss 04/29/89 =“ 

«< High-performance file-compressi on program »> 

usage : LHarc [<command>] [{{/1-}<<switch>[-1 +121<option>]»...] <archive> 
[f<drive name>:}|{<base directory>\>] [<path name> ...] 


<command> 

a: Add files to archive 
f: Freshen files in archive 
d: Delete files from archive 
p: display files in archive 
s: make a Self-extract archive 
<switch> 

r: Recursively collect files 
x: allow eXtended file names 
p: distinguish full Path names 
a: allow any Attributes of files 
n: display No indicator 


u: Update files to archive 
m: Move new files into archive 
e,x: EXtract files from archive 
l,v: View List of files in archive 
t: Test integrity of archive 

w: assign Work directory 
m: no Message for query 
c: skip time-stamp Comparison 
v: View files by another utility 
k: Key word for AUTOLARC.BAT 


You can distribute or copy without any donation to me. Nifty-Serve PFF00253 
(Detailed descriptions are in user's manual.) ASCII-pcs pcs02846 


blemi di omonimia. 

Con lo switch /r si effettua addirittura una 
ricerca ricorsiva nelle varie directory di tutti i 
file aventi il nome indicato. 

Questo switch abilita automaticamente la 
forma estesa, quindi se non si desidera me¬ 
morizzare il path-name completo bisogna 
digitare /rx-. 

/p[- | + ] (distinguish Path names) 

Questo switch permette di estrarre da un 
archivio il file specificato, tenendo conto 
della directory in cui è contenuto. 

Ad esempio, se un archivio contiene due file 
aventi ugual nome, ma contenuti in due di¬ 
verse directory, il comando “extract” li pre¬ 
leverebbe entrambi eliminando quello con 
data anteriore. 

Lo switch /p estrarrà dall’archivio esclusi¬ 
vamente il file contenuto nella directory 
specificata. 

Esempio: LHarc e /p Archivio.LZH 
/dos/config.sys 

/c[-1 + ] (esclude il confronto sulla data dei 
file) 

Esempio: LHarc [efux] /c Archivio LZH [fi- 
lel.est file2.ext...] 

Normalmente LHarc sostituisce un file 
preesistente con quello appena decompat¬ 
tato (avente lo stesso nome) solo dopo aver 
confrontato le due date di creazione, can¬ 
cellando il più vecchio. Con lo switch /c 
questo controllo non viene effettuato, e 
l’eventuale file preesistente con lo stesso 
nome viene eliminato in ogni caso 

/m[- | + ] (elimina i Messaggi) 

Messaggi del tipo “Overwrite [Y/N)?’\ non 
saranno più visualizzati. L’esecuzione del 
comando procede come se fosse stato pre¬ 
muto il tasto “Y". 

/a[-1 +] (qualunque Attributo) 

Esempio: LHarc a /a Archivio.LZH file.arc 
LHarc, per default, non compatta i file na¬ 
scosti, i file a sola lettura o di sistema. Lo 
switch /a permette di archiviare anche que¬ 
sti. 

/r[- | + | 2] (Ricorsività) 

Come abbiamo già accennato, specifican¬ 
do questo switch LHarc effettuerà la ricerca 
dei file indicati non solo nella directory cor¬ 


rente ma anche nelle sue eventuali sottodi¬ 
rectory. 

Facendo seguire questo switch con un 2 
(/r2) si effettua la compattazione di tutti i file 
contenuti nella directory specificata. 

FILE A UTO-DECOMPA TTANTI 

Abbiamo accennato all’inizio a questo tipo 
di archivi che si decompattano in modo au¬ 
tomatico (detti “SFX”, SelF eXtracting). 
Questa prestazione è ottenibile anche da 
altri compattatori, ma LHarc aggiunge una 
possibilità in più, estremamente utile, il “te- 
lop”. È possibile fare in modo che, dopo 
aver digitato il nome dell’archivio auto- 
decompattante, venga visualizzato sullo 
schermo un messaggio, seguito dal prompt 
[Y/N] e dalla conseguente pausa di attesa, 
Ovviamente, digitando “Y” si otterrà la de¬ 
compattazione dell’archivio, mentre digi¬ 
tando “N” non succederà assolutamente 
nulla. 

Esistono due tipi di file auto-decompattanti: 
Small SFX e Large SFX, dipendentemente 
dalla lunghezza del file. 

Per fare uno Small SFX digitare: 

LHarc s Archivio.LZH mentre per un Large 
SFX, in caso di file di dimensioni notevoli: 
LHarc s /x Archivio.LZH 
Per dotare l’archivio di un file telop, proce¬ 
dete nel modo seguente: create prima di 
tutto un file ASCII (usando un qualunque 
text editor), contenente il messaggio che 


volete far visualizzare. Salvate su disco 
questo file con il nome “!", anche se sem¬ 
bra strano! 

A questo punto inserite il file “!” nell’archi¬ 
vio, con il metodo già noto, e create il file 
auto-decompattante utilizzando il coman¬ 
do “s”. Il gioco è fatto! 

Ma LHarc è in grado di offrirci molto di più; 
si può inserire un FILE BATCH nelI’SFX, che 
viene lanciato automaticamente non appe¬ 
na l’archivio si auto-decompatta. 

Affinché il file batch venga lanciato è ne¬ 
cessario che si digiti di seguito al nome del¬ 
l’archivio una parola chiave (password), 
precedentemente associata alI’SFX con la 
seguente sintassi; 

LHarc s /x /kPASSWORD Archivio.LZH 
Al posto di ‘‘PASSWORD", ovviamente, do¬ 
vrete inserire la vostra parola chiave. 

La password non ha la funzione di proteg¬ 
gere i file compattati, bensì serve ad evitare 
lo sfruttamento dell’auto-run per realizzare 
i famigerati “cavalli di troia”, ovvero pro¬ 
grammi che una volta decompattati si auto- 
lanciano producendo danni irreparabili a 
chi, ignaro, li ha registrati sul proprio hard- 
disk (ad esempio, distruggendo tutto ciò 
che trovano). 

Con LHarc, invece, se non si digita la pas¬ 
sword i file vengono decompattati ma non 
viene eseguito l’auto-run. 

Affinché tutto questo funzioni correttamen¬ 
te è necessario che il file batch inserito nel¬ 
l’archivio si chiami "AUTOLARC.BAT". ■ 
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Microsoft Quick 
Pascal v. lo 


di RODOLFO ROSSI 


Ecco il nuovo nato in casa Microsoft: dopo 
il Quick Basic e il Quick C, è uscita la pri¬ 
ma versione del Microsoft Quick Pascal 


LS alta subito agli occhi che il 
Microsoft Quick Pascal 1.0 è 
nato con tanta voglia di 
emergere nel difficilissimo 
mondo dei linguaggi di pro¬ 
grammazione sotto ms-dos dove spadro¬ 
neggiano le creazioni della Borland Inter¬ 
national. 

Vi confesso che, appena giunto tra le mie 
mani questo pacchetto, non ho saputo resi¬ 
stere all’impazienza e l’ho installato imme¬ 
diatamente nell’HardDisk (occupa circa 1.8 
Megabytes) per vedere subito cosa aveva 
di nuovo e di diverso dal caro vecchio Tur- 
boPascal. 

A proposito: se non avete un HardDisk non 
fà niente, infatti per la configurazione base 
è sufficiente un solo floppy e almeno 512K. 
Ho preso il piccolo manuale di installazione 
e di inizio chiamato "Up and Running” e ho 
eseguito il setup. 

Mentre aspettavo ho letto un po’ dell’altro 
manuale (molto più grande) chiamato “Pa¬ 
scal by Example’’, che è un interessante li¬ 
bro di programmazione che illustra suffi- 
centemente le caratteristiche principali del 
Pascal (per chi non le conosce) ed è un 
buon ripasso per chi è già un esperto cono¬ 
scitore del linguaggio di Wirth. 

Infatti “Pascal by Example" dà all'utente o 
al futuro programmatore una visione d’in¬ 
sieme di ciò che è il Pascal, dividendo il tut¬ 
to in tre parti: 

1. Le variabili, gli operatori e le espressioni. 

2. Le stringhe, i cicli, le units, le procedure, i 
tipi di dato e la gestione dell’input/output. 

3. Le potenti capacità grafiche. 



Fot IBM Personal Coniputers 
and Compatibles 

5‘A" disk version 


Microsoft QuickPascal 

Compiler 


Microsoft 


Il libro termina con un interessante capitolo 
(il 15) che tratta il tema della programma¬ 
zione “object-oriented’’, cioè la program¬ 
mazione orientata agli oggetti, che è una 
delle mete del programmatore che vuole 


creare un codice pulito, comprensibile e 
riutilizzabile. 

Ma passiamo al nostro Quick Pascal, che 
ormai è già caricato, e si scorge che c’è un 
diverso principio di creazione di quell’am- 
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biente integrato, infatti si possono avere 
memorizzati più programmi perché l'editor 
è a finestre e si può passare tra una e l’altra 
semplicemente premendo una sola combi¬ 
nazione di tasti (ALT + il numero della fine¬ 
stra). 

Ovviamente il numero di finestre è limitato 
solo alla capacità di memoria che il vostro 
personal possiede. 

Essendo il programma principale molto 
grande, se possedete soli 512K non avrete 
la possibilità di scrivere e compilare sorgen¬ 
ti molto lunghi o dotati di procedure rise¬ 
denti su altri file, cosa che sul Pascal Bor¬ 
land non avveniva. 

Entro subito nell’editor e provo a scrivere 
un piccolo programmino in Pascal e si nota 
subito la suddivisione fatta direttamente 
dall’editor tra: 

1.1 comandi del Pascal, (begin, end, while 
..do, repeat..until) che sono di colore ro¬ 
sa-rosso. 

2. I commenti, (cioè le parole scritte tra le 
parentesi graffe) che sono di colore verde. 

3. Le variabili e gli altri identificatori, che so¬ 
no di colore bianco. 

Questa è un’ottima cosa sia perché il pro¬ 
grammatore ha una buona visione d’insie- 
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me del proprio programma, sia perché è 
più leggibile anche da chi non conosce 
tale programma. 

Vi sono anche gli HELP che possono es¬ 
sere richiamati praticamente da ogni luo¬ 
go in cui si trovi il nostro mouse o (se non 

10 possedete) il nostro cursore. 

Sono scritti abbastanza semplicemente e 
piuttosto comprensibili (cosa che non ac¬ 
cade spesso nel mondo dei linguaggi), 
ma se avete altri problemi o non siete an¬ 
cora molto ferrati sul pascal o sull’uso 
corretto del Quick Pascal potete usare 
l’ottimo Tutorial, che la Microsoft ha in¬ 
cluso nella confezione, che vi accompa¬ 
gna passo passo in tutte le principali pro¬ 
cedure di uso e di debugging che il Quick 
Pascal ha messo a disposizione dell’uten¬ 
te. Il programma si chiama ovviamente 
Microsoft Quick Pascal Express e si com¬ 
porta con l’utente come un vero corso, in¬ 
fatti richiede il nome dell’utente e mostra, 
grazie ad un asterisco, le lezioni già fatte. 

11 Tutorial è diviso in quattro parti: 

- Come usare questo tutorial. 

- Come usare le finestre, i menu e l’editor. 

- Il caricamento, la compilazione e l’ese¬ 
cuzione in Quick Pascal. 

- Le procedure di Debugging. 


Un’altra preziosa possibilità che può dar¬ 
ci questo Quick Pascal e la compatibilità 
delle units grafiche con quelle del Turbo 
Pascal (B.G.I. Borland Graphics Interfa¬ 
ce) e con quelle del suo cugino, il Micro¬ 
soft Quick C versione 2.0. 

Ma sopratutto la completa compatibilità 
di sintassi con il Turbo Pascal (dalla ver¬ 
sione 4.0 in poi). 

La Microsoft annuncia addirittura che 
questo prodotto può compilare meglio i 
programmi in Turbo Pascal e senza fare 
alcuna modifica. 

Quest'ultima affermazione della famosa 
casa di software mi ha lasciato legger¬ 
mente perplesso, sia perché le capacità di 
compilazione e linkaggio dei prodotti 
Borland non sembravano avere rivali e 
sia perché la presentazione di tali presta¬ 
zioni nella prima versione uscita mi sem¬ 
brava alquanto azzardato, non dimenti¬ 
chiamo che il Turbo Pascal si trova alla 
versione 5.5 e soltanto dalla versione 4.0 
abbiamo potuto affermare che si posse¬ 
deva un prodotto tra i migliori che ci of¬ 
frisse il mercato. 

Con queste considerazioni ho ricaricato il 
Quick Pascal e ho memorizzato sulla fine¬ 
stra 1 dell’editor il famoso CRTDEMO- 
.PAS, che un piccolo programmino che si 
trova in dotazione all’acquisto del Turbo 
Pascal insieme a molti altri, ho preferito 
linkarlo (cioè l’ho reso eseguibile) e mi so¬ 
no trasferito in ambiente Turbo Pascal (la 
versione è la 5.5) ed ho fatto la stessa co¬ 
sa. 

Ecco il risultato: 

crtdemot exe 4688 bytes (con il Turbo Pa¬ 
scal v5.5) crtdemoq exe 7620 bytes (con il 
Quick Pascal vl.O) 

La cosa non sarebbe neanche da com¬ 
mentare, visto che la lunghezza dei due file 
eseguibili è così diversa (a favore della 
Borland). 

Ma desidero ricordare che, anche se in 
questo momento l’accostamento in termini 
di velocità e di efficenza non si può ancora 
fare tra i due prodotti, il Quick Pascal è solo 
alla sua prima uscita sul mercato e quindi 
ha ancora molto tempo per raggiungere e 
chissà sorpassare l’avversario di sempre. 
Certo: l’annuncio alla stampa ed all’utenza 
non era del tutto giusto, visto che le presta¬ 
zioni non sono poi così eccezionali, ma 
questo prodotto della Microsoft ha sicura¬ 
mente diritto ad una prova d’appello, ma¬ 
gari con una versione che possa davvero 
infastidire la Borland, padrona in questo 
momento del Pascal per ms-dos. ■ 
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Computerà rtis ta 


di OSVALDO CONTENTI 


Il nostro computer si è montato la testa. 
Infatti è riuscito a generare da sé un pro¬ 
gramma, per giunta con velleità artistiche! 
È “superarte” alla Achille Bonito Oliva, 
oppure una prima allarmante trasgressio¬ 
ne delle leggi di Asimov sui robot? 
Leggete e saprete 
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rova a dare un dito al com¬ 
puter e stai sicuro che ti 
prenderà il braccio! 

Nel numero scorso parlai di 
"composizioni sintetiche" 

ideate anche attraverso la “fantasia” del 
computer, così l’elaboratore che ho in dota¬ 
zione ci deve aver preso gusto e mentre sta¬ 
vo digitando una routine di iterazioni di cir¬ 
conferenze perfettamente ordinate, arriva 
un mini black-out che mi fa dirigere uno 
sguardo “inquieto" verso la Mecca, per la 
convinzione di aver perso tutto. 

Ma dopo una frazione di secondo il compu¬ 
ter si riaccende e partendo in un misterioso 
AUTO-RUN si mette a produrre una grafica 
che io non avevo immesso! Richiamo il list 
e, sorpresa, ci trovo, oltre alle vecchie, nuo¬ 
ve linee di programma (non redatte da me), 
ed altre invece mancanti. 

Allora ridò il RUN e con mio stupore la routi¬ 
ne (autogenerata) si dimostra piuttosto in¬ 
teressante e, constatato che non si è tratta¬ 


to di "virus", alla fine decido che se il fato in 
formato chip ha deciso di inviarmi questo 
programma, è bene presentarlo ai lettori, 
chiedendo agli stessi di inviarci, supposto 
che ve ne siano, altri programmi autogene¬ 
rati (se degni di nota), magari per aprire un 
neo-filone di listati AUTODAFÉ dei compu¬ 
ter. 

Naturalmente, come dice il trio Marchesi- 
ni-Solenghi-Lopez, il giuramento sulla veri¬ 
dicità dei vostri "autogenerati” dovrà esse¬ 
re la formula: “MEPOSSINOCECAMME!", 
seguita dalla vostra firma. Se siete a Roma, 
anche per diporto, basterà che infiliate una 
mano nella “Bocca della Verità" (non vale 
dal IO al 20 Ottobre, periodo, meschino, di 
ferie del tagliatore di mani). 


LA ROUTINE 
“COMPUTERARTISTA” 

Certo sarebbe meglio che fosse il mio stes- 
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so computer a spiegarvi gli esiti di quel 
black-out, ma ora il birbante elettronico fa 

10 gnorri, e forse sta pensando: "Vediamo 
come se la cava, stavolta, l'Osvaldo!”, ri¬ 
dacchiando attraverso il PSG. 

Infatti mi ha proprio incastrato perché non 
so da dove cominciare per spiegare un pro¬ 
gramma non voluto da me. 

Vorrà dire che ne parlerò come fosse il lista¬ 
to di un amico con 20 piedini per gamba! 
L’unica alterazione al programma autoge¬ 
nerato (scusa Z80), è stata di immettere dei 
nomi di variabile al posto delle vaghe cifre, 
nonché delle richieste di INPUT per le varia¬ 
bili stesse. Facciamone conoscenza: 

- Input-Variabile NC= numero dei cerchi 
della composizione (il valore di NC non do¬ 
vrebbe superare la cifra più alta del codice 
colore utilizzabile dal vostro elaboratore) 

- Input-Variabile RC= Raggio di ogni sin¬ 
golo cerchio (cifra a piacere) 

- Input-Variabili C ed R= Coordinate cen¬ 
tro composizione (dipende dalla risoluzio¬ 
ne del vostro schermo grafico) 

- Input-Variabile CT = Colore del tratto (è il 
colore guida di tutta la composizione) 

- Input-Variabile Z= Variazione ignota 
(non presente nel mio list, assieme ad altre 
parti del programma) 

Risulta evidente, ma ho dimenticato di se¬ 
gnalarlo in testa all'articolo, che questo 
programma è implementabile sugli MSX 2 o 
sui computers con hi-res colore. 

Ho titolato la routine autogenerata col no¬ 
me “COMPUTERARTISTA”, proprio perché, 
mai come questa volta, il computer pare 
esprimersi "a ruota libera”, riempiendo ma¬ 
no a mano lo schermo di azioni CIRCLE 
(stampa di circonferenze) e PAINT (vedi 
riempimento zone delimitate), riuscendo a 
favorire delle videate piuttosto creative, do¬ 
ve ogni tanto, ed inaspettatamente, un arco 
di cerchio si troverà investito di colore e lo 
stesso potrà accadere per zone “casuali" 
dello schermo. 

11 mio consiglio, provato il programma, è di 
non alzare di molto il valore della variabile 
NC, in quanto creerebbe soltanto molta 
confusione in video, sempre a patto che le 
variabili RC ed RG non siano, invece, di di¬ 
mensione ridotta. 

Rispondendo alle INPUT del programma 
potrete anche pigiare il solo tasto RETURN, 
ed in quel caso le variabili si presenteranno 
con i medesimi valori e risultati su schermo 
che mi sono apparsi dopo il black-out. 
Detti parametri, per default, saranno: 
NC = 50; RC = 30; RG = 150; C = 127; R = 95; 
CT = 34 e Z = 50. 
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60 

REM- 






70 

REM- 






80 

REM Richiesta pa 

ramet 

ri 




90 

REM- 






100 

CLS 






110 

INPUT"Numero ci 

rcon f 

erenz 

e 

" ; NC 

: REM 

NC 

non deve superar 

e il 

codic 

e 

colo 

re li 

mit 

e dell'elaborato 

re 





120 

IFNC=0THENNC=50 






130 

INPUT"raggio ci 

rcof e 

renza 

m 

; RC 


140 

IFRC=0THENRC=30 






150 

INPUT"raggio gl 

obale 

" ; RG 




160 

IFRG=0THENRG=15 

0 





170 

INPUT"colonna e 

riga 

cent 

ro 

" j c 


180 

IFC+R=0THENC=12 

7 : R = 9 

5 




190 

INPUT"colore tr 

atto 

" ; CT 




200 

IFCT=0THENCT=34 






210 

INPUT"Numero va 

r iazi 

one " 

;z 



220 

IFZ=0THENZ=50 






230 

SCREEN8:CLS: REM 

Neg l 

i MS X 

2 

ques 

ta li 

nea 

comporta un sch 

ermo 

grafi 

CO 

256 

*212 

con 

256 colori 






240 

REM- 






250 

REM Routine gra 

fica 





260 

REM - 






270 

FOR T=1 TO NC 






280 

X=INT(C+RG*COS( 

6.28/NC*T ) 

*SIN ( Z 

*T ) ) 

290 

Y=INT(R+RG*SIN( 

6.28/NC*T> 

*COS(Z 

*T ) ) 

300 

LINE -(RBS(X) ,RBS(Y) ) 

, CT : REM 

Que 

sta L 

INE 

traccia una lin 

ea da 

l pen 

ul 

timo 

all ' 

Ult 

imo punto (X,Y) 

raggi 

unti 

SU 

sch 

ermo 

310 

CIRCLE ( X ; Y > ,RC, 

CT : REM Sin 

t a 

ssi 

CIRCL 

E MSX : CIRCLE(colon 

na , ri 

ga> ,r 

aggio, 

color 

e 

320 

IFT > NC/20 RND RBS(X- 

5) <25 

6 

RND 

RBS ( Y 

) <2 

11 THEN PflINT < RBS ( X - 5 

) j RBS 

( Y 

>>,T 

,CT : R 

EM 

Sintassi PRINT ( 

r iemp 

imen t 

0 ) 

MS X 

2 : Pfl 

INT 

( colonna , riga ) , c 

olore 

riempiment 

o,col 

ore 

Limiti 






330 

NEXT T 






340 

GOTO 340 







Passando alle modifiche che potrete ope¬ 
rare sul listato, queste presentano una buo¬ 
na possibilità nelle variazioni del colore, 
poiché non è affatto detto che una sequen¬ 
za di tinte inizianti dal codice 1 (perché se¬ 
guenti il valore T della FOR-NEXT) risulti di 
vostro gradimento, così un T + N o T*N (con 
il numero di N da voi attribuibile), potrebbe 
decretare delle sfumature di colore più gra¬ 
devoli all’occhio. 

Riguardo alla variabile Z (autogenerata), 
tende a spostare l’ordine precedentemente 
impostato in una specie di sinusoidi, l’uno 
diverso dall’altro anche con la minima va¬ 
riazione (anche di decimi) dello stesso valo¬ 
re di Z. 

Infine le variabili C ed R, decretando il pun¬ 
to centrico della composizione, possono, 
assieme a cifre alte impostate per altre va¬ 
riabili, non solo spostare ma anche scoprire 
un nuova zona grafica, inedita in altre 
schermate. 

Che dire quindi di questa routine? Come i 
“Cochi e Renato” di qualche anno addietro 
potremmo dare al nostro elaboratore un 
buon 7 +, perché, oltre alla sorpresa, il pro¬ 
gramma ci offre una nutrita serie di varia¬ 
zioni di videata (sul numero delle migliaia). 
Vogliamo quindi perdonarlo per questa 
sortita dai canoni del CREATIVO? 

E a proposito, che c’entri il microscopico 
TRON in tutto questo? Vado subito a chie¬ 
derlo all’MPU, col vostro permesso. 


BIBLIOGRAFIA 
MA TEMA TICO-CREA TI VA 

Prendo spunto dal listato autogenerato per 
proporre una coda bibliografica trattante 
una matematica stimolante dal punto di vi¬ 
sta creativo e culturale al tempo stesso, in 
molti casi riversabile anche su computer. 
Pubblicazioni per tutti: 

- Kasner, Matematica e immaginazione, 
Bompiani 

- Gardner, Enigmi e giochi matematici, voli. 
1-5, Sansoni 

- Picutti, Uomini e numeri, Le Scienze qua¬ 
derni n. 18 

- De Long, Problemi non risolti dell’aritmeti¬ 
ca, rivista “Le Scienze" n. 34, giugno 1971 

- Davis, Il decimo problema di Hilbert, rivista 
“Le Scienze” n. 66, febbraio 1974 

Per i più esperti: 

- Hermes, Enumerabilità, decidibilità, com¬ 
putabilità, Boringhieri 

- Manaster, Completezza, compattezza, e 

indecidibilità, Bibliopolis. ■ 
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UN COMANDO 
Al GIORNO 


IL CORRETTORE DI ERRORI: DEBUG 


di ANDREA GIORGI 

In questo numero di LIST e, molto probabil¬ 
mente, anche nei prossimi numeri, data la 
complessità delTargomento e la sua impor¬ 
tanza, affronteremo due argomenti riguar¬ 
danti le caratteristiche del programma Debug 
per la ricerca e la correzione degli errori 


I programma Debug è il pro¬ 
gramma che un operatore 
MS-Dos può utilizzare per la 
ricerca e la correzione degli 
errori, detta appunto opera¬ 
zione di "debugging”, fornendogli anche 
un valido ambiente di controllo per i file-og¬ 
getto binari ed eseguibili. È da notare la 
rassomiglianza con l’editore di riga, di cui 
abbiamo già parlato, l’Edlin che veniva 
usato per file-sorgenti. Debug è il suo eqiu- 
valente in ambiente binario. In questo arti¬ 
colo più precisamente ci occuperemo pri¬ 
ma del suo avviamento e poi di come utiliz¬ 
zare i suoi comandi ed i suoi parametri. 
Grazie alle caratteristiche del programma 
Debug si elimina la necessità di riassembla¬ 
re un programma dopo che si è tentato di 
corregere anche un piccolo errore, dà infat¬ 
ti la possibilità di accedere direttamente alle 
celle di memoria o ai registri della CPU rie¬ 
seguendo, poi, immediatamente il pro¬ 
gramma onde controllare la validità dei 
cambiamenti che sono stati apportati. 

AVVIAMENTO DI DEBUG 

L'avviamento del programma Debug in am¬ 
biente MS-Dos può avvenire in due modi 


differenti: il primo digitando solamente la 
parola "debug” ed il secondo digitando 
"debug” seguita dal nome del file su cui si 
vuole operare e, se si desidera, un possibile 
elenco di parametri o argomenti la cui fun¬ 
zione sarà vista in seguito. 

Se si desidera avviare il Debug con il primo 
metodo si deve digitare quanto segue: 

debug 

il sistema risponderà con il prompt tipico 
del Debug: 
il trattino (-). 

A questo punto Debug è pronto a ricevere 
tutti i comandi che vogliamo utilizzare. 
Considerando con non si è specificato nes¬ 
sun file su cui operare sarà attraverso i vari 
comandi che potremo accedere all’area di 
memoria o al file che ci interessa. 

Se, invece, si desidera avviare il debug con 
il secondo metodo si indicherà parola de¬ 
bug con il nome del file su cui si vuole ope¬ 
rare; come segue: 

debug nomefile 

La sintassi più corretta è la seguente: 

debug [nomefile[elencoarg]] 

L’elencoarg non è altro che un elenco di 
parametri di nomi di file e di interruttori da 
trasferrire al nomefile del programma. 

/ COMANDI DI DEBUG 

Informazioni generali 

Ogni comando di Debug consiste in un uni¬ 
ca lettera seguita da uno o più parametri. I 
vari caratteri di controllo e le varie funzioni 
speciali di editing che abbiamo discusso 


ampiamente nei precedenti numeri di list 
sono applicabili anche al programma di 
Debug. 

Con il programma debug non dovete nean¬ 
che preoccuparvi per eventuali errori di sin¬ 
tassi, in quanto, se uno se ne verificasse, 
debug stesso ve lo indicherà riproducendo 
la riga con l’errore nonché un accento cir¬ 
conflesso seguito dalla parola "Errore”. 
Nel digitare i vari comandi e i vari parametri 
è possibile usare qualsiasi combinazione di 
lettere maiuscole e minuscole. 

Prima di iniziare una discussione più speci¬ 
fica per ogni singolo comando osserviamo 
la tabella seguente che riporta tutti i co¬ 
mandi con un primo accenno di spiegazio¬ 
ne: 


Comando Funzione 

A Assembla istruzioni in memoria 
C Confronta blocchi di memoria 
D Visualizza il contenuto di un blocco di 
memoria 

E Inserisce valori in memoria 
F Riempie posizioni di memoria 
G Esegue il programma 
FI Esegue operazioni esadecimali 
I Inserisce byte 
L Carica file in memoria 
M Trasferisce un blocco di memoria 
N Imposta nomi di file 
0 Invia byte alla porta di output 
Q Conclude la sessione di lavoro 
R Visualizza i contenuti dei registri 
S Ricerca byte 
T Visualizza contenuti di file 
U Disassemble i byte 
W Scrive i file 

Si ricorda che ogni comando debug una 
volta lanciato può essere interrotto con la 
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pressione simultanea dei tasti CTRL e C. In 
contrapposizione la pressione dei tasti 
CTRL e S annulla la visualizzazione onde 
permettere la lettura, un qualsiasi altro ta¬ 
sto riavvia tale visualizzazione. 


/ PARAMETRI DEI 
COMANDI DI DEBUG 

Tutti i vari comandi di Debug illustrati nella 
tabella precedente accettano una serie di 
parametri che ora andremo a vedere. L’uni¬ 
ca eccezione deve essere fatta per il co¬ 
mando “Q” che, al contrario, non accetta 
nessuno dei parametri possibili. 

È inoltre possibile inserire dei caratteri di se¬ 
parazione, tipo spazi e/o virgole, non esen- 
do, comunque, tale prerogativa, obbligato¬ 
ria ad eccezion fatta di quando vengono 
indicati due valori esadecimali consecutivi. 
Del tipo: 

d cs:100 110 
d cs:100,110 

questi due comandi risulterebbero equiva¬ 
lenti. 

I possibili parametri indicabili in un coman¬ 
di di Debug sono i seguenti: 

unità 

byte record 
valore 
indirizzo 
intervallo elenco 
stringa 

passiamo ora alla spigazione singola di 
LIST 10/89 


ogni singolo parmetro prima di prendere in 
considerazione nel loro complesso i co¬ 
mandi del Debug. 


Parametro UNITÀ 

L’unità viene rappresentata da un valore 
esadecimale di una cifra indicante l’unità, 
appunto, da dove si deve leggere o scrivere 
eventualmente un file. 

Tale valore è un numero compreso tra 0 e 3, 
con A = 0, B = 1,C = 2eD = 3. 


Parametro BYTE 

Anche questo parametro viene rappresen¬ 
tato da un valore esadecimale. 

Tale valore di due cifre può essere letto o 
posto in un indirizzo e/o in un registro. 


Parametro RECORD 

Il parametro record viene indicato con un 
numero decimale da una a tre cifre rappre¬ 
sentante il numero di record logico su disco 
ed eventualmente il numero di settori di di¬ 
sco che devono essere letti o scritti. 

Si ricorda che sebbene i record logici corri¬ 
spondono a setori sul disco la numerazione 
può risultare tuttavia differente. 


Parametro VALORE 

È un valore esadecimale di quattro cifre 
specificante il numero di porta o il numero 


di volte che si deve ripetere un determinato 
comando. 

Parametro INDIRIZZO 

Tale parametro si compone di due parti: la 
prima indicante un registro di segmenti al¬ 
fabetico o un indirizzo di segmento a quatr- 
ro cifre e, la seconda, un valore di offset. 
Per quanto riguarda la prima parte posso¬ 
no anche essere usati degli indirizzi predefi¬ 
niti tipo DS e CS. 3 /4ediamo i due casi: 

CS:0100 

04BA:0100 

Si fa notare l’obbligatorietà dei due punti (:) 
tra il nome del segmento ed il valore di off¬ 
set. 


Parametro INTERVALLO 

Tale parametro contiene due indirizzi che 
possono essere indicati in vari modi: 

CS:100 110 (primo metodo) 

CS:100 L 10 (secondo metodo) 

CS:100 (terzo metodo) 

Con il primo metodo si indicano due valori 
la cui differenza sta ad indicare il tempo di 
intervallo. 

Con il secondo, invece, il tempo di intervallo 
è dato dal valore che segue il comando 

ii fi 

Il terzo metodo assume 80 come valore del 
comando “L". 

Il limite massimo di intervallo è 10000 indi¬ 
cante con quattro zeri (0000) o con un solo 
zero (0). 


Parametro ELENCO 

È una serie di valori espressi in byte o strin¬ 
ghe. È comunque l’ultimo parametro in una 
riga di comando. 


Parametro STRINGA 

È un numero qualsiasi di caratteri racchiu¬ 
so tra virgolette. 

Tali virgolette possono essere singole ( ’) o 
doppie (“”). Le doppie virgolette vengono 
usate nel caso che dentro la stringa devono 
risultare dei simboli di delimitazione. ■ 
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t 

SUPER USX 2 
S VIDEO DIGITAII 


di OSVALDO CONTENTI 

Questo numero della rubrica è interamen¬ 
te dedicato ai neo-possessori di un norma¬ 
le MSX 2, con un programma per DISE¬ 
GNARE SU SCREEN 8, fruendo dei 256 co¬ 
lori di tavolozza. Un pretesto per appro¬ 
fondire l'uso di alcune istruzioni 


ari MISTERIANI, forse si è 
corso un po’ troppo in que¬ 
sta rubrica, dimenticando al¬ 
cuni amici. Infatti i vari: "Ef¬ 
fetti speciali”, "Imago", ecc. 
hanno fatto certo piacere ai più esperti, ma 
all'utente di "primo pelo", che ha acquista¬ 
to da poco un MSX 2, certo no! Per cui si 
comprendono le loro timide richieste che 
auspicano un "supplemento di manuale", 
ove quest'ultimo risulta carente o addirittu¬ 
ra latitante. Volete un esempio? Prendiamo, 
su lamentela di un lettore, il segno opera¬ 
zionale “MOD” (resto divisione intera). Eb¬ 
bene, in un manuale (del quale non citerò 
pietosamente il nome), detto segno non ap¬ 
pare in nessun tipo di indice, ed è presente 
nel libro in mezza riga di stampa. Come pre¬ 
tendere che il neo-programmatore la trovi? 
Eppure spendiamo fior di quattrini per ave¬ 
re un computer! Non meriteremmo più at¬ 
tenzione e rispetto dai signori dell’hardwa- 
re? 

Dopo la critica non rimane che rimboccarsi 
le maniche per aiutare i cuccioli abbando¬ 
nati nella città della RAM, ma ripercorrere il 
manuale sarebbe barboso per tutti. Quindi 
la cosa migliore, a mio avviso, è quella di 
presentare una utility (il programma “DISE- 
GNA”, altra richiesta dei lettori), sofferman¬ 
dosi su alcune istruzioni un po’ ostiche o 


spiegate normalmente all’acqua di rose e 
senza esempi. Vi va bene l’idea? Se si conti¬ 
nuate a leggere. 


Il MONDO DI “ DISEGNA” 

Disegnare con un qualsiasi computer è 
sempre un’esperienza eccitante, poi farlo 
con la possibilità di utilizzare 256 colori è 
proprio uno spasso. Ne parlavo qualche 
mese fa col Docente di Tecniche Pittoriche 
all’Accademia di Belle Arti di Firenze, Prof. 
Riccardo Saldarelli, abilissimo peraltro an¬ 
che nella Computer Art (o Art Computer, 
Riccardo?). Si diceva di quanto il computer 
avesse liberato “mani nuove" per l’arte, an¬ 
che dando la possibilità a chi mai si sareb¬ 
be avvicinato alla pittura, magari per un ba¬ 
nale veto del tipo: “ Non vorrai mica sporcar 
casa con quelle tempere?!’’, di un genitore 
che poi svuota il portacenere dell’auto per 
strada¬ 
ci vorrebbe Picasso che, rimbeccato per¬ 
ché macchiato di tempera, replicò adirato 
ad un tizio troppo zelante: "Amico mio, non 
è sporco, è COLORE!!!”. 

Ma il computer per fortuna non "sporca", 
ditelo a mammut e babbut, e preparatevi a 
gustare "DISEGNA" con il sentito appoggio 
di Pablo. 

Avviato il programma si avranno 3 INPUT: 
la prima vi chiederà di digitare un codice 
colore (tra 0 e 255) per sfondo e cornice, se 
batterete solo RETURN il colore sarà lo 0 
ovvero il NERO; la seconda input chiederà il 
nome dell’eventuale file-immagine da SAL¬ 
VARE a conclusione del disegno, se preme¬ 
rete solo RETURN il nome di default sarà 
"VIDEO", al quale si aggiungerà un nume¬ 
ro crescente di identificazione: l’ultima in¬ 
put chiederà il nome file di un’immagine da 
apporre come sfondo (per poi disegnarci 
sopra), battendo solo RETURN nessuna im¬ 
magine verrà caricata, ma dato il nome (e 


prima del RETURN), ricordate di porre il di¬ 
sco con la videata nel drive A. 


TASTIERA E STICK 

Dopo il titoletto, sullo schermo apparirà un 
sprite multicolore, questo seguirà ogni 
mossa dello stick o dei tasti cursore, così 
utilizzerete: 

- Barra Stick (porta 1): per le 8 DIREZIONI 
cursore 

- Tasti Cursore: per le 8 DIREZIONI cursore 
(per le diagonali premere contemporanea¬ 
mente 2 tasti cursore d’angolo) 

- Tasto FI: per SOLO movimento SPRITE 
(impostato dall’Inizio per default, non dise¬ 
gna) 

- Tasto F2: per DISEGNARE con PUNTA FI¬ 
NE (tratto di un solo punto) 

- Tasto F3: per DISEGNARE con PENNELLO 
(tratto tondo 2x2) 

- Tasto F4: per DISEGNARE con PENNA¬ 
RELLO (tratto quadrato 3x3) 

-Tasto F5: per CANCELLARE (con colore di 
sfondo designato da input; tratto 4x4) 
F6-F10 = tasto SHIFT (quello con freccia) 
+ F1-F5 

-Tasto F6: per RIPULIRE l’intera pagina nel 
colore dato in INPUT (in testa al program¬ 
ma) 

- Tasto F7: per RIPULIRE l’intera pagina nel 
colore scelto nella TAVOLOZZA 

- Tasto F8: per RITORNO vecchia IMMAGI¬ 
NE (ha luogo dopo l’uso almeno singolo di 
F6, F7 o RETURN) 

- Tasto F9: per SALVATAGGIO VIDEATA (su 
drive A; se si incorre in errore un cicalino 
avverte il NON salvataggio, tornando sem¬ 
pre al nenu di disegno) 

- Tasto FIO: per schermo NTSC (più ampio, 
senza margini) o PAL (normale): ripremere 
FIO per la possibilità contraria 

- Tasto RETURN o tasto FIRE (stick 1): per 
scelta COLORE in TAVOLOZZA; premuto 
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return appare la tavola dei 256 colori, quin¬ 
di designare il colore spostando la corni- 
ce-sprite con i TASTI CURSORE (NORD - 
SUD - EST - OVEST) o la BARRA STICK; 
scelta la tinta memorizzarla con RETURN o 
FIRE, tornando al menu di disegno. Sotto la 
tavolozza verrà stampato il codice del colo¬ 
re solcato assieme ad un box più esteso del 
colore stesso. 

Rimane da specificare che l’uso del tasto 
F8 (previa battuta di F6 o F7 e ancora F8) si 
consiglia prima di effettuare una parte dise¬ 
gnata che si preannuncia difficile, nella 
quale si può incorrere in errori, stornabili 
appunto con la pressione di F8. Da ultimo 
ricordate che il colore TRATTO, iniziale, è 
sempre il NERO (codice 0) e se lo sfondo 
scelto nell’input a capo del programma ri¬ 
sulta il medesimo, dovrete giocoforza ad- 
dottarne un altro tramite la tavolozza per 
far affiorare il disegno in video. 


LE 7 REGOLE D ORO 

Avete presente il programmatore edonista? 
Quello per intenderci che se scopre un di¬ 
lettante del computer tende a ridicolizzar¬ 
lo? Diffidatene! Costui certo conosce a me¬ 
moria il manuale d’uso (ci dispiace per lui), 
ma realizza solo programmi rubacchiati da 
altri, mettendo di suo qualche insipida rou- 
tinetta. Dico questo a difesa dei neofiti della 
programmazione molte volte tartassati da 
questi palloni gonfiati, i quali letti alla rove¬ 
scia, però, ci insegnano cosa NON dovrem¬ 
mo fare per imparare a gestire un compu¬ 
ter; 

(1) No ai manuali a memoria: ricordate det¬ 
tagliatamente solo ciò che vi è più necessa¬ 
rio e fate invece molta pratica di mini-routi¬ 
ne; 

(2) Non state troppe ore dinanzi al compu¬ 
ter: la stanchezza annebbia la lucidità; 

(3) Non copiate le routine altrui, ma studia¬ 
tele o ancor meglio provate a redigerle per 
vostro conto e in seguito confrontate i risul¬ 
tati; 

(4) Non abbiate fretta e non ricercate la ve¬ 
locità a tutti i costi, come in una routine LM 
che, provata, aveva il SOLO difetto di dise¬ 
gnare un centinaio di punti di fila dopo un 
solo tocco della penna (da Superman) otti¬ 
ca; 

(5) Per una nuova idea di programma non 
rifatevi alle esperienze già fatte, ma ponete¬ 
vi nuove domande anche apparentemente 
astruse, tipo: "Che routine servirà per dise¬ 
gnare una MELA, e in che modo il computer 
potrebbe riconoscerla?’’. 


Cioè nuove idee per nuove soluzioni che vi 
torneranno sempre utili; 

(6) Non cambiate un computer ogni sei me¬ 
si, il consumismo informatico non crea mai 
sufficiente esperienza; 

(7) Infine non drogatevi di computer, non 
fatene un oggetto di culto a senso unico, 
ma abbinate possibilmente a questo lo stu¬ 
dio, per contraltare, di una materia umani¬ 
stica: ne trarrete nuovi spunti ed un inevita¬ 
bile arricchimento del bagaglio culturale. 
Passando dalla buona teoria alla pratica 
della programmazione, cominciamo subito 
a far conoscenza con certe istruzioni inseri¬ 
te in "DISEGNA", che molti lettori giudica¬ 
no, a ragione, poco digeribili. 

Nella lista seguente troverete il nome di una 
tale istruzione, la linea di programma dove 
ritrovarla e l’uso fatto della stessa istruzio¬ 
ne. 


HELP 1: PER PRINCIPIANTI 

- SET PAGE (160): Rimanendo sulla pagina 
in vista (la zero), ripuliamo la seconda pagi¬ 
na (la uno) con un CLS, quindi torniamo al¬ 


la pagina attiva (la 0,0) 

- OPEN "GRP:”ASx 1 (170): In tal modo 
prepariamo lo schermo grafico alla scrittu¬ 
ra dei caratteri ASCII; l’operazione va svolta 
una sola volta e un esempio di scrittura è il 
seguente: PRESEPIO,12):PRINTx 1,“MSX 
computer”, dove il PRESET indica la colon¬ 
na e la riga del primo carattere stampato 

- VPOKE T,A (320): Si carica la forma di due 
sprites di grandezza 0 nelle celle di memo¬ 
ria degli stessi (celle pattern sprite screen 8 
da 61440 a 63487) 

- PUTSPRITE (330): Si stampa lo sprite 1 su 
colonna X e riga Y nel colore zero (traspa¬ 
rente) 

- COLORSPRITES (340): Si crea uno sprite 
multicolore (numero zero), dove ogni CHR$ 
contiene un codice colore per ogni linea 
dello sprite 

- ONSTICK(I) (390): Controlla gli 8 movi¬ 
menti della barra stick della porta 1 

- ONSTICK(O) (400): Controlla le 8 possibili 
pressioni dei tasti cursore 

- ONKEYGOSUB (410): Controlla le 10 pres¬ 
sioni dei tasti funzione (da FI-FIO) 

- STRIGO) (420): Controlla l’avvenuta pres¬ 
sione del tasto di FUOCO dello stick 1 (for¬ 
nisce -1 se premuto e 0 se a riposo) 


10 rem - 

20 REM - DISEGNO 

30 REM (MSX 2 su screen 8) 
u 0 REM di Osvaldo Contenti 
50 REM - 

6 0 SCREEN0,0,0 :WIDTH8 0:COLOR15,4,4:KEYOF 
F : CLS 

70 REM Input: colore/save-file/load-file 
80 CLS:LOCRTE10,11‘.INPUT "Colore schermo 
e cornice (0-255) ";CS 
90 IFCS<0ORCS>255THEN80 

100 CLS:LOCOTE10,11:INPUT"Nome file da 5 
ALVRRE (max 5 caratteri senza estensione 
) " ; F $ 

110 IFLEN(FS)>5THEN100 

120 IFF$=""THENF$="VIDEO" ‘.GOT0140 

130 F0RT=1T0LEN(F$):IFRSC(MID$(F$,T,1))= 

46THENCLS:GOTOI00ELSENEXT 

140 CLS:LOCRTE10 j11 : INPUT"Nome file-imma 
gine da CORICARE come sfondo ";N$ 

150 SCREEN8,0,0:COLOR255,4,4:CLS 
160 SETPRGE0,1:CLS:SETPRGE0,0 
170 OPEN"GRP:"RSttl 
180 DIM R(232) ; B(713) 

190 REM Memorizza tavola colori e titola 
200 FORY=2TO30STEP4:FORX=45TO200STEP5: LI 
NE(X,Y)-(X+3,Y+2),C,BF:C=C+1:NEXT:NEXT 
210 LINE(43,0>-( 205,34),255,B: COPY(43,0) 
-(205,34)TOB 

22 0 FORT=1T04: PRESET(86 + T,157-T),6+32*T 
230 DRRW "S4D6G2L3H5U23E1R3F12D8U5E5U8D1 
F5R2E1U14E1R2F6D1G4R1E3U19H1L1G1D4F9R2E1 
U8E4U9H1L1G4D2F5R1U1R1F9D4G5L2H1U11E6U21 
E1R1F7L2H1U10R1F9R1U15H1D5F3R6E3U5H4L3G4 

DÌU3E1R14E5U1”: NEXT:CIRCLE( 96,125) ,3,24 : 
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- COPY (520): In questa sintassi la COPY 
trasferisce tutta la pagina grafica 0 alla pa¬ 
gina 1 

- VPOKE R*256 + C,K (710): Questa VPOKE 
stampa più velocemente della canonica 
PSET un punto sullo schermo, di colore K e 
nelle coordinate di RIGA * 256 + COLON¬ 
NA 

- ON ERROR GOTO (970): Se si verifica un 
qualsiasi errore per il salvataggio di una 
schermata (ma può essere usata per com¬ 
prendere altri errori), questa istruzione non 
fa saltare il programma, ma "soprassiede” 
all’errore con l’aiuto OBBLIGATORIO di 
una RÉSUMÉ che si ricollocherà presso la 
routine stabilita dall’utente. 


HELP 2: LA COPY CON VETTORE 

Ad ogni modo l’istruzione che ai principian¬ 
ti appare più difficile resta certamente la 
"COPY”, specialmente vista nella sua sin¬ 
tassi di vettorizzazione di una parte di im¬ 
magine. 

A beneficio dei nuovi utenti MSX 2 ed anche 
se la seguente spiegazione è stata già for¬ 
nita in un numero passato di LIST, ripetia¬ 
mo ancor più semplicemente tale delucida¬ 
zione per l’ultima volta sino alla fine dell’an¬ 
no. 

Passo PRIMO: determinare le 4 coordinate 
limite della porzione di schermo che si in¬ 
tende memorizzare. Es.: 

SCREEN8 : CLS:C1 = 60 : RI = 60 : C2 = 
100 : R2 =10 

(ci; c2; ri; r2= coordinate) 

Passo SECONDO: disegnare qualcosa nel¬ 
la zona desiderata. 

Es.: 

FORT =2T016STEP2 : CIRCLE (CI + 20, 
RI - 20), T, T : NEXT 
(disegno circonferenze) 

Passo TERZO: calcolo per vettore. 

Es.: 

P = 4 : PX = 4 :1 = INT ((((P * (ABS (C2 - 
CI) +1) * (ABS (R2 - RI) +1) +7) /8) +4) 
/PX) 

(si noti che l’operazione è diversa da quella 
riportata sui manuali d’uso, i quali appros¬ 
simano il calcolo per eccesso, abbondando 
spropositatamente il risultato di “I”. In que¬ 
sto caso invece la "1" si approssima al mas¬ 
simo per eccesso di 2 unità, defalcagli una 
volta provata la “1" nella "DIM”. Con 
SCREEN8: P = 4 e PX = 4; con SCREEN7 e 5 
P = 4 e PX = 8; con SCREEN6 P = 2 e PX = 8) 


PRINT (96,125) ,24 : PLRY "05 L 1 6E04 " 

24 0 LINE(43,40)-(205,185) ,255, B :PRESET(5 
0,190):PRINT#1 /‘di Osvaldo Contenti" : FOR 
T=1TO3000:NEXT 

250 SCREEN 8 ,0,0:COLOR0,CS, 0:CLS 
260 K=0:X=44:Y=10:C=125:R=102:M=1 : V = 1 :UI = 
2 

270 IFN$ < >""THEN BLOAD N$,S 

280 REM - 

290 REM PRTTERNS SPRITES 
300 REM --- 

310 DATO 108,238,238,0,238,238,108,0,252 
,132,132,132,252,0,0,0 

320 RESTORE:FORT=61440!T061455! : RERDfl: VP 
OKET,fl:NEXT 

330 PUTSPRITE1,(X,Y),0 : REM Sprite normal 
e 

340 COLORSPRITE$(0)=CHR$(12>+CHR$<12>+CH 
R$(1)+CHR$(0)+CHR$(1)+CHR$( 8 )+CHR$( 8 )+CH 
R$(0): REM Sprite multicolore 

350 REM - 

360 REM STICK & TASTIERA 
370 REM - 

380 FORT =1TOI0 :KEY(T)ON:NEXT:PUTSPRITE0, 
(C-3,R-4) 

39 0 ONSTICK <1)GOTO590,600,610,620,630,64 

0,650,660 : REM Controllo stick 1 

400 ONSTICK(0)GOTO590,600,610,620,630,64 

0 ,'650,660 : REM Controllo t. cursore 

410 F0RT=1TO2:ONKEYG0SUB470,480,490,500, 

510,520,530,540,970,550:NEXT:REM Control 

lo t. funzione 

420 IFSTRIG(1)=-1THEN780ELSEK$=INKEY$:IF 
K$ = ""THEN390: rem Controllo t. FIRE e tas 
tiera % 

430 IFRSC(K$) = 13THEN780ELSE390: REM Tasto 
RETURN 

440 REM-* 5 -.**, 

450 REM FUNZIONI 

460 REM - 

470 PLRY’ , L64fl" :M= 1 : RETURN 
480 PLflY ,, L64B ,, :M = 2 : RETURN 
490 PLRY M L64C":M=3: RETURN 
500 PLRY"L64D":M=4:RETURN 
510 PLAY"L64E":M=5: RETURN 

520 PLAY"L64AB" :COPY<0,0)-(255,211 ) ,0 TO 
(0,0),1 :LINEC 0,0 )-(255,211 ),CS,BF: RETURN 
:REM CLS nel colore di default 
530 PLRY"L64BC":COPY(0,0)-(255,211 ),0 TO 
(0,0> ,1 : LINE(0,0>-<255,21 1 ) ,K,BF: RETURN: 
REM CLS nel colore di tavolozza 
540 PLRY”L64CD'':COPY(0,0)-(255,211 ) ,1 TO 
(0,0),0 : RETURN: REM Ritorno immagine 
550 SWflPV ,UJ: IFU=2THENPLRY" L64RF" : YDP( 1 0 ) 
=VDP(10)RND253:GOTO380ELSEPLRY"FR":VDP<1 
0>=VDP<10>OR2:GOTO380: REM Schermo NTSC o 
PRL 

560 REM - 

570 REM DIREZIONI CURSORE 
580 REM - 

590 IFR=0THEN390ELSER=R-1:ONMGOTO700,710 
,720,730,740 

600 IFR=0ORC=255THEN390ELSER=R-1:C=C+1:0 
NMGOTO700,710,720,730,740 

610 IFC=255THEN390ELSEC=C+1:ONMGOTO700,7 
10,720,730,740 

620 IFR=211ORC=255THEN390ELSER=R + 1:C=C+1 
:ONMGOT0 7 00,710,720,730,740 
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630 IF R = 211THEN390EL5ER=R+1:ONMGOTO700,7 
10,720,7 30,740 

640 IFR=211ORC=0THEN390ELSER=R+1 :C = C-1: 0 
NMGOTO700,710,720,730,740 

650 IFC=0THEN390ELSEC=C-1:ONMGOTO700,710 
,720,730,740 

660 IFR=0ORC=0THEN390ELSER=R-1:C=C-1:ONM 
GOTO700,710,720,730,740 

670 REM - 

680 REM OPERAZIONI DISEGNO 

690 REM - 

700 PUTSPRITE0,(C-3,R-4):GOTO390: REM Sol 
o cursore 

710 PUTSPRITE0,(C-3,R-4):VP0KER*256+C,K: 
GOTO390:REM Disegno punta fine 
720 PUTSPRITE0,(C-3,R-4):Z=255X0RK:CIRCL 
E(C,R),2,Z:PAINT(C,R),K,Z:CIRCLE(C,R),2, 
K : GOTO390: REM Pennello 

730 PUTSPRITE0,(C-3,R-4):LINECC-3,R-3)-< 
C+3,R+3),K,BF: GOTO39 0 : REM Pennarello 
740 PUTSPRITE0,(C-3,R-4):LINE(C-3,R-3)-( 
C + 3 , R + 3 ) ,CS,BF:GOTO3 9 0: REM Gomma 

750 REM - 

760 REM SCELTO COLORE 
770 REM - 

780 ,PLRY"L64FGRBD M :PUTSPRITE0,(255,211): 

COPYC43,10 )-(205,48),0 T0(43,10 > ,1 

790 COPYB,0 T0(43,10) : COPY<43,59>-< 205,6 

9 ) TOR:IFC5 = 0THENCOLOR255ELSECOLOR0 

800 LINE(43,59)-(125,69),CS,BF:LINE(43,5 

9>-<125,69>,255 ,B:PRESET(45,61>:PRINTtt1, 

"COLORE="+MID$(STR$(K),2,LEN(STR$(K))) 

810.LINE(127,59)-(205,69),K,BF:LINE(127, 

59)-(205,69), 2 5 5 ,B 

820 PUTSPRITE1,(X,Y),15 

830 LINE(98,60)-(124,68),CS,BF:PRESET(10 
0,61>:PRINTttl,MID$(STR$(K),2,LEN(STR$(K) 
)) : LINE(128,60 )-( 204,68),K,BF 
840 IFSTRIGd)=-1THEN920ELSEK$=INKEY$:IF 
K$ =""THEN860 

850 IFRSC(K$)=13THENBEEP:GOTO920 

860 ONSTICK(1)GOTO900,840,880,840,910,84 

0,890,840 

870 ONSTICK(0)GOTO900,840,880,840,910,84 
0,890,840:GOTO840 

88 0 IFX = 199THEN87 0ELSEK=K-M : X = X + 5:G0T082 
0 

89 0 IFX = 4 4THEN8 70ELSEK = K-1: X = X - 5 :G0T0820 
900 IFY=10THEN870EL5EK=K-32:Y=Y-4:G0T082 

0 

910 IFY = 38THEN87 0ELSEK = K + 32:Y = Y+4: GOTO82 
0 

920 COPY(43,10)-(205,48),1 TO<43,10),0 
93 0 C0PYRT0(43,59) : COPY( 0,0 ) -(255,2 1 1 ) ,0 
TO(0,0),1 :PUTSPRITE1,(X,Y),0 :GOTO3 8 0 

940 REM - 

950 REM SALVATAGGIO VIDERTR SU DRIVE R 

960 REM - 

970 ON ERROR GOTO 1020 

980 PLRY"L64RD":NB$=STR$(NB) 

990 B$ = F$ + MID$( NB $ , 2 , LEN ( NB $))*■" .PIC":RE 

M Confeziona nome fi Ire v»' r 

1000 BSRVE B$,&H0,&HD4 0 0 ,S: REM Salva imm 

agine 

1010 PLRY"L64FCDR":NB=NB+1:GOTO380 
1020 FORT=1TO20:PLAY"L64R":F0RTT=1T05:NE 
XT:NEXT:RESUME380: REM Cicalino segnala e 
rrore 


Passo QUARTO: porre “I” nell’istruzione di 
DIMENSIONAMENTO VETTORE. 

EsDIM A(l) 

(ora il vettore A contiene il box scelto d’im¬ 
magine) 

Passo QUINTO: memorizzazione mediante 
istruzione COPY. 

Es.: 

COPY(C1,R1)-(C2,R2)TO A 
(la COPY ha memorizzato la parte di scher¬ 
mo prescelta) 

Passo SESTO: stampa dell’immagine nelle 
4 DIREZIONI consentite. 

Es.: 

CLS:FORZ = 0TO3 : COPY A,Z TO 
(100,150) : FORT = 1TO300 : NEXT : CLS 
:NEXT 

(la variabile "Z” sposterà il box nelle 4 “di¬ 
rezioni”, meglio “ribaltamenti”, consentiti). 

Sono stato abbastanza chiaro? Lo spero. 
Ma se i nuovi utenti MSX 2 dovessero avere 
qualche altro dubbio, mi scrivano senza ti¬ 
mori. Ciao. 


PROGRAMMI SPECIALI MSX 2 

Ricordo che i dischetti per MSX 2 presentati 
nei mesi scorsi, sono sempre disponibili 
presso la Redazione di LIST (vedi ultima pa¬ 
gina verde dell’inserto staccabile). 

Elenco e contenuto dei dischetti: 

- EFFETTI SPECIAL11: Manipolazione di im¬ 
magini (ripiegature, inclinazioni ecc.) otte¬ 
nibili anche modificando linee DATA inseri¬ 
te nel programma. Disk consigliato a chi 
NON possiede immagini digitalizzate. Gui¬ 
da all’uso: LIST n. 1-2/89. " 

- EFFETTI SPECIALI 2: Velocissima manipo¬ 
lazione di vostre immagini digitalizzate 
(senza linee DATA). Guida all’uso: LIST n. 
5/89. 

- IMAGO: (ad AUTOESECUZIONE e non 
protetto) Circa 2500 variazioni di immagi¬ 
ne (solarizzazioni, grafismi ecc.) salvabili su 
disco. Guida all’uso: LIST n. 6/89. 

- MANDELZOOM: (ad AUTOESECUZIONE e 

non protetto) Ingrandimenti automatici del¬ 
l’insieme di Mandelbrot (con cornice indivi- 
dua-settore) salvabili su disco. Guida al¬ 
l’uso: LIST n. 9/89. ■ 
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di PAOLO CIARDELLI 


Alla ricerca dei sorgenti perduti... 


i cerca il tempo perduto, 
quando si matura nella vita, 
così anche per lo standard 
MSX, per arricchire la sua 
pingue biblioteca software, 
si è alla ricerca di qualcosa: di programmi 
sorgenti. 

Lo standard MSX con tutta la compagine 
di industrie elettroniche alle spalle, aveva 
fatto tremare con il suo avvento parecchi 
costruttori di altri home computer, quali la 
Commodore con il suo c64 o la Apple con 
il 2e. 

Di forma slanciata, il fare aggressivo e 


novità tecnologiche che spaziavano dal¬ 
l’adozione di dischetti da 3,5 pollici con 720 
KByte di capacità, basic Microsoft, vero ge¬ 
neratore di suoni e due porte per joystick ol¬ 
tre ad una slot, o due, per le cartridge. Molti 
davano per scontata un’ascesa non comu¬ 
ne. 

Poi l’avvento dei cloni IBM e l’abbattimento 
dei prezzi avevano almeno in Europa fatto 
tramontare il sogno dell’MSX. 

Dopo un tramonto però arriva un’alba e 
proprio dal paese del sol levante giungono 
prima voci poi cataloghi più o meno ma¬ 
scherati che parlano di un nuovo MSX 2 
plus. 

Un super MSX dai colori e dalle prestazio¬ 
ni stupefacenti più che mai. 

Non solo, dalla Germania giunge l’an¬ 
nuncio della commercializzazione di un 
hard disk della capacità di 20 MByte e di 
un nuovo DOS versione 2.2. 

Ma in Italia, come sempre siamo delle sen¬ 
tinelle messe a guardia di un deserto dei 


tartari e aspettiamo di venire invasi da un 
momento all’altro. 

Sull’onda delle recriminazioni ci siamo ri¬ 
cordati che lo standard dagli occhi a 
mandorla, sfrutta le potenzialità di un mi¬ 
croprocessore tutto italiano, lo Z80, sul 
quale era stato implementato l’unico av¬ 
versario dell'MS-DOS: il CP/M. 

Da questa constatazione, in un pomerig¬ 
gio piovoso è partita l’idea di iniziare una 
raccolta di librerie di pubblico dominio, 
sul modello dei Fish Disk per Amiga o le li¬ 
brerie di PC Sig per IBM, battezzandola 
con il nome ROD Disk, acronimo di Read 
Only Disk. 

E allora un po’ per gioco, un po’ per sfida, 
ce ne siamo andati a spasso per le varie 
BBS, alla ricerca di programmi di pubbli¬ 
co dominio scritti per il CP/M 80, ma sotto le 
mentite spoglie di programmi per Commo¬ 
dore 128, elaboratori basati su Intel 8080 e 
così via. 

Non sempre la ricerca è stata all’altezza 
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dei risultati finali, infatti spesso i programmi 
reperiti sotto forma compattata, al necessa¬ 
rio spacchettamento presentavano librerie 
incomplete o i sorgenti erano infarciti di 
procedure in assembler 8088. 

Alla fine dei conti ci siamo ritrovati con una 
libreria di una quarantina di dischi, sui qua¬ 
li è registrato tutto lo scenario del- 
l’informatica, spaziando dai programmi di 
compattazione dati, trasmissione via mo¬ 
dem, linguaggi come COBOL o Basic e 
compilatori vari compreso un bellissimo 
SMALL C. 

Naturalmente non sono mancate le colla¬ 
borazioni attive e a livello personale, come 
quella di un collega che con pazienza cer¬ 
tosina ha trasferito immagini, picture, attra¬ 
verso la porta Video SCART da un personal 
computer Amiga ad un Philips 8280 e quel¬ 
la di Enrico Conforti che ci ha messo a di¬ 
sposizioni vari programmi. 

Ma vorremmo in questa sede ringraziare in 
particolare maniera Nicola Pizzicara, che 
oltre a gestire uno dei più grandi club per 
MSX nazionali che conta su più di 2.500 
iscritti, è il sysop dell’unica banca dati inte¬ 
ramente dedicata all’MSX. 

Le novità che ci ha messo a disposizione in 
fatto di utility e di giochi, gli sono pervenute 
dall’estero: Olanda, Germania ed In¬ 
ghilterra ma soprattutto dalla vicina Fran¬ 
cia e dalla Spagna. 


MSX BBS 

La Bulletin Board System gira su di un 
IBM di classe AT che è collegato a sua 
volta per via seriale ad un PHILIPS MSX 
8280. 

La scelta è stata d’obbligo, essendoci 
una mancanza quasi assoluta di software 
per comunicazioni per MSX e dalla mo¬ 
mentanea irreperibilità di una memoria di 
massa ragguardevole. 

“Certo non è stato facile reperire softwa¬ 
re’’, ci puntualizza Nicola "ma tramite i 
molti contatti che ho intessuto in Europa 
ed anche grazie a mio fratello emigrato in 
Francia, ho messo insieme tutto quello a 
cui si può accedere al momento.” 

La telematica però una volta ancora non 
è stata all’altezza della situazione, a cau¬ 
sa della difficoltà di trasmissione” conti¬ 
nua il sysop, “e per far crescere questa 
iniziativa è stato superiore l'apporto delle 
Poste." 

Infatti la scrivania di Nicola è ingombra di 
buste e di carta da pacchi costellata di 


francobolli esteri multicolori. 

Tutta posta contenente dischi, cassette o li¬ 
stati che gli pervengono da mezza Europa 
ma che potevano arrivare per via tele¬ 
matica se le frontiere degli standard e delle 
limitazioni di velocità ancora una volta 
hanno frenato lo sviluppo della telematica 
amatoriale. È bello però pensare a questi 
pacchetti che recano mittenti di città dal 
nome sconosciuto ai più, i quali aperti con¬ 
tengono utility che al di là della lingua con 
cui è stata scritta la documentazione ci ac¬ 
comunano alla stessa passione. 

Europa telematicamente ed informatica- 
mente finalmente unita. 

Ma torniamo al problema della trasmis¬ 
sione. 

Tralasciando fole riguardanti la frettolo- 


sità del rilascio di software per comunica¬ 
zione da parte della più grande industria 
elettronica europea/olandese, la mancata 
reperibilità a livello diffuso di un buon pac¬ 
chetto di trasmissione dati, hanno ral¬ 
lentato la diffusione dell’MSX nel campo 
telematico. Ora però grazie agli scambi 
nazionali e non di programmi vari si può 
reperire dei buoni pacchetti come il KER- 
MIT di pubblico dominio e l’XMOD1250, 
che sopperiscono benissimo alle necessi¬ 
tà del campo telematico. Proprio per me¬ 
glio approfondire il discorso presentiamo 
la recensione dei due programmi di comu¬ 
nicazioni scritta con la collaborazione di 
Giulio di Giuliomaria che ringraziamo. 

XM0D1250.C0M 

di GIULIO DI GIULIOMARIA 

Lo sfruttamento ottimale di un’apparec¬ 


chiatura hardware è relativo ad un uso 
corretto del software di gestione. 

Per usufruire quindi di tutte le potenziali¬ 
tà di un modem, per esempio, dobbia¬ 
mo disporre di un pacchetto software di 
alta qualità che dobbiamo usare al me¬ 
glio. 

Insieme al diffusissimo modem Philips 
NMS1255 inizialmente era disponibile sol¬ 
tanto il programma DATACOMM fornito 
in dotazione, dalle caratteristiche non 
certo eccezionali, ma indispensabile per il 
collegamento alle reti videotex e dunque 
all’italiano VIDEOTEL. 

Ora i possessori di MSX2 possono utiliz¬ 
zare il loro modem con due nuovi pro¬ 
grammi dalle caratteristiche veramente 
valide: 


XMOD1250.COM e KERMIT.COM. 

L’unico neo risiede nella disponibilità dei 
manuali per i due suddetti programmi. 
Iniziamo dalla schermata iniziale nella 
quale si legge il nome dell’autore, la data 
di realizzazione (5/2/88) e la versione del 
prodotto, la 1.5. 

È implementato l'uso del mouse che even¬ 
tualmente, potrà essere sostituito (per i 
possessori del VG-8235) dai tasti cursore 
e dai tasti SPACE e FI. 

La prima linea in alto dello schermo è co¬ 
stantemente occupata dai nomi dei menu 
a tendina e da alcune indicazioni sullo 
stato attuale dei parametri di comunica¬ 
zione e della velocità. 

I menu a tendina possono essere richiamati 
in qualsiasi momento tramite FI, nel qual 
caso la comunicazione sarà temporanea¬ 
mente interrotta per permettere di effettuare 
altre operazioni. 

Vediamo le funzioni dei cinque menu e la 
loro utilizzazione pratica. 
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TERMINAI 

Qesto menu comprende sette comandi: 

TTY TERMINAL: per tornare alla comuni¬ 
cazione dopo aver utilizzato i menu, cioè 
dopo esser usciti con FI. 

CHAT MODE: utilissima suddivisione del¬ 
lo schermo in due finestre, che permette 
la “chiacchierata on line” tra due utenti, 
visualizzando in una il testo in arrivo e 
nella seconda quelli in partenza. 

SEND XMODEM: per spedire un file pre¬ 
sente sul disco tramite l’omonimo proto¬ 
collo. 

RECEIVE XMODEM: per ricevere file. Viene 
richiesto il nome col quale deve essere 
salvato su disco il file. 

TRASMIT ASCII: sempre per trasmettere fi¬ 
le ma in formato ASCII. 

Utile per spedire lettere od altro materiale 
precedentemente elaborato con un EDI¬ 
TOR a modem spento, per risparmiare 
sulla bolletta, per intenderci. 

LOG SESSION: serve per "catturare" par¬ 
ti interessanti di un collegamento. 
Bisogna immettere il nome del file, in for¬ 
mato ASCII, con il quale verrà registrato il 
collegamento, dall’inizio fino alla pressio¬ 
ne di FI. 

Se al posto del nome del file scriviamo 
PRN la parte di collegamento che ci inte¬ 
ressa sarà indirizzata verso la stampante. 


EXIT: esce dal programma e torna al DOS. 
La comunicazione viene interrotta e tutti i 
file vengono chiusi. 


STOP BITS: regola i bit di stop, general¬ 
mente sempre 1, ma sono ammessi anche 
1.5 e 2. 

PARITY: sono possibili le parità None, Even 
e Odd. 


il programma che lo fa, o con echo remoto. 

C BREAK: definisce il tipo di carattere di 
break che deve essere spedito alla pres¬ 
sione del tasto C. 


SETTINC 

Comprende otto sottomenu a tendina uti¬ 
lizzati per controllare lo stato del collega¬ 
mento: 

BAUD RATE: setta la velocità tra quelle 
consentite, standard V21 300/300, V23 o 
V23 equalizzato per linee sporche 
1200/75.DATA BITS: regola i bit di parola, 
sono ammessi valori tra 5 e 8 anche se poi 
si utilizzano sempre i valori 7 e 8. 


Xon/Xoff: abilita o disabilita la possibilità di 
interrompere e ripristinare il flusso dei dati 
tramite i caratteri ~S e Q. 

ADD LINE FEED: si può avere un collega¬ 
mento con l'aggiunta di un LF (Line Feed 
salto di linea) quando arriva un CR (Car- 
riage Return ritorno di carrello) o quando si 
trasmette un CR o in entrambi i casi. 

ECHO: si può avere un collegamento senza 
“echo” a video, come nella maggior parte 
dei sistemi, oppure con echo locale. In prati¬ 
ca l’host non rispedisce il carattere inviato è 


MODEM 

Menu per la gestione delle funzioni proprie 
del modem. 

Consiste di 6 comandi: 

DIAL: effettua la chiamata. 

Prima del numero telefonico sono ammessi 
alcuni caratteri speciali, dei quali il punto 
esclamativo è quasi d'obbligo. 

REDIAL: richiama in caso di insuccesso. 


46 


LIST 10/89 











TELEMATICA 



CONNECT: va in modo terminale senza 
effettuare la chiamata, che in questo caso 
dovrà essere fatta manualmente. 

ANSWER: risponde manualmente ad una 
chiamata. 

AUTOANSWER: si posiziona in risposta 
autmatica aspettando la chiamata di un 
altro computer. 

DISCONNECT: si disconnette e libera la li¬ 
nea telefonica. 

Quando dovete interrompere una co¬ 
municazione ricordatevi di utilizzare i 
comandi appositi come EXIT o DISCON- 
NECT, non spegnete il computer per¬ 
ché l’eventuale file aperto con il coman¬ 
do LOG SESSION non verrebbe chiu¬ 
so e perdereste tutti i dati contenuti in es¬ 
so. 


DISK 


Menu per la gestione dei file e del drive, 
composto da cinque comandi: 

DIRECTORY: fa una directory del dis¬ 
co associando ad ogni file la sua lun¬ 
ghezza. 

È possibile avere una directory MASKera- 
ta. 

Lo spazio libero del disco viene sempre vi¬ 
sualizzato. 

TYPE: visualizza il contenuto di file ASCII. 
RENAME: rinomina file. 

DELETE: cancella file. 

DRIVE: seleziona il drive corrente. 


CONTROLS 


Comprende sei comandi: 

MOUSE SPEED: seleziona una delle tre 
possibili velocità del mouse 

MOUSE TEST: è un controllo sulle direzio¬ 
ni del mouse. 

COLOUR: permette di variare i 4 colori 
dello schermo e dei menu secondo le in¬ 
tensità dei tre colori fondamentali. 

FUNCTIOTION KEYS: serve per program¬ 
mare i nove tasti funzione liberi (FI è u- 
sato come tasto di escape dal program¬ 
ma). 

SAVE SETTING: salva su dischetto, con un 
nome da noi scelto, lo stato attuale della 
configurazione, colori, numero telefonico, 
parametri, velocità e, importantissimo, i ta¬ 
sti funzione. Sono ammessi fino a dieci file 
di questo tipo, il numero 0 è di default e vie¬ 
ne caricato allo start del programma. 
Questa funzione è molto utile perché per¬ 
mette di memorizzare per ogni banca dati 
tutte le informazioni che la riguardano, 
compresi codice utente e password che, 
memorizzati su due tasti funzione, po¬ 
tranno essere richiamati alla pressione di 
un unico tasto eliminando il problema dei 
mille foglietti sulla scrivania e di eventali oc¬ 
chi indiscreti... 

Soprattutto per la password è consigliabile 
usare un tasto di funzione che richieda l’u¬ 
so dello shift (dal 6 al 10) così eventuali digi¬ 
tazioni involontarie non potranno rendere 
le password di pubblico dominio!! 

LOAD SETTING: ricarica in memoria i dati 
salvati con l’opzione precedente. 
Ricordatevi che caricare in memoria uno di 
questi piccoli archivi fa cadere la linea per¬ 
ché si presuppone che dobbiate chiamare 
un'altra banca dati. Per quanto riguarda 
ITAPAC conviene memorizzare la PW sul 
tasto funzione 10 e poi utilizzare gli altri 8 a 
disposizione (ricordiamoci che FI serve co¬ 
me escape) per altrettante NUA. 


KERMIT.COM 

Il programma KERMIT si presenta all’u¬ 
tente come il DOS (cioè viene gestito tra¬ 
mite comandi da immettere in presenza 
del prompt). 
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I comandi sono una ventina e possono 
essere immessi sia in forma intera che in 
forma abbreviata. 

L’abbreviazione di ogni comando può es¬ 
sere ridotta all'osso, ma in ogni caso, se si 
immettono stringhe di caratteri comuni a 
due o più comandi, un messaggio di erro¬ 
re ci avvertirà dell’accaduto. 

Di ogni comando, poi, è possibile avere 
un help facendo seguire allo stesso uno 
spazio e un punto interrogativo. 

Questa funzione di help è molto utile nel 
comando SET che include sedici argo¬ 
menti differenti (visualizzabili col coman¬ 
do SHOW). 

Vediamo ora la descrizione completa dei 
comandi principali seguiti ogni volta da 
un piccolo esempio (tranne che nei co¬ 
mandi senza argomenti): 

BYE: disconnette la linea e torna al DOS. 

CONNECT: torna alla comunicazione do¬ 
po esserne usciti col *]c. 

DATE: visualizza la data e l’ora attuale. 

DELETE: cancella un file. 

es: DELETE nomefile. 

DIAL: chiama un numero telefonico (sono 
ammessi i soliti caratteri di controllo; ve¬ 
dere il manuale). 

es: DIAL 15867 

DIR: esegue una directory del disco (è pos¬ 
sibile avere una directory MASKerata). 

es: DIR TASO * (Z interrompe, S e Q stop 
e start). 

DISCONNECT: disconnette le linea e tor¬ 
na allo stato comandi. 

EXIT: Disconnette e torna al DOS. 

FINISH: abortisce un trasferimento dati in 
KERMIT. 

HELP: fornisce la lista dei comandi (an¬ 
che ?). 

LOG: trasferisce su un file in formato 
ASCII parti importanti di collegamento. 

es: LOG nomefile. 
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(FI interrompe la "cattura”). 

LOGOUT: dovrebbe inviare un particolare 
codice di break, ma non è utilizzato dalla 
maggior parte dei sistemi. 

RECEIVE: riceve un file secondo il proto¬ 
collo KERMIT. 

Non necessita di argomenti in quanto I’- 
host remoto provvede ad inviare anche il 
nome del file. 

RENAME: rinomina un file. 

es: RENAME oldname newname. 

SEND: spedisce un file secondo il proto¬ 
collo KERMIT. 

es: SEND nomefile. 

SET: cambia lo stato di 16 parametri quali 
velocità, parità, ecc. 

es: SET parametro valore parametro. 

SHOW: mostra tutti i parametri e il loro 
stato. 

SLEEP: Questo comando interrompe mo¬ 
mentaneamente la comunicazione e ini¬ 
bisce il funzionamento della tastiera fino 
all’ora inserita. 

Molto utile se ci si deve allontanare dalla 
tastiera e non si sa chi potrebbe capitare 
nei paraggi del computer! 
es: SLEEP 10:45. 

TAKE: Il comando TAKE permette di ese¬ 
guire delle funzioni macro, cioè una serie 
di istruzioni contenute in un file vengono 
eseguite dal programma in successione. 


Può servire per richiamare tutti i parame¬ 
tri di una banca dati come per il comando 
LOAD del XMOD1250. 

Per la creazione dei file comandi si può 
utilizzare un normale editor o la funzione 
del DOS: COPY CON nomefile. 


TRANSMIT: trasmette un file in formato 
ASCII. 


TYPE: visualizza un file in formato ASCII, 
per le interruzioni vedere il comando DIR. 


Descriviamo ora tutti i parametri associa¬ 
bili al comando SET, ricordando che qua¬ 
lora la sintassi o la funzione di uno di que¬ 
sti non risultassero chiari, basta far segui¬ 
re il tutto da un punto interrogativo. 
Esempio SET BAUD ?, sarà così visualiz¬ 
zata la lista dei valori consentiti da quel 
parametro. 

ADDLFR: aggiunge un salto di linea alla 
ricezione di un CR (on/off). 

ADDLFT: aggiunge un salto di linea insie¬ 
me al CR spedito (on/off). 

BAUD: determina la velocità (sono con¬ 
sentiti i soliti V21, V23 e V23 equalizzato). 

DATABITS: determina i bit di parola 
(S/7/6/5). 

DISPLAY: dovrebbe determinare la visualiz¬ 
zazione in linea di un help, ma non ac- 


es: TAKE nomefile. TAKE kermit.ini. 


es: TYPE nomefile. 


es: TRANSMIT nomefile. 
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STOPBITS: setta i bit di stop, (1, 1.5, 2). 




cetta i valori che dovrebbe (on/off), forse 
per un difetto di programmazione. 

ESCAPE: ridefinisce il carattere da abbi¬ 
nare al Control per uscire dalla comuni¬ 


cazione e tornare allo stato comandi. 
LOCAL: si riferisce all’echo (on/off). 
PARITY: valori consentiti E, N, 0. 


TIMEOUT: il timeout può essere selezio¬ 
nato fino a 99 secondi. 

VT52: abilita o no l’emulazione dell’omo- 
nimo terminale (on/off). 

XON/XOFF: abilita o disabilita la possibi¬ 
lità di interrompere e ripristinare il flusso 
dei dati tramite i caratteri S e Q. 

VERSION: mostra la versione del pro¬ 
gramma, la 1.0 (on/off). 

In ultimo, perché dimenticato dal coman¬ 
do SHOW, c'è il SET PROMPT, che per¬ 
mette di ridefinire, appunto, il prompt del 
sistema. 

es: SET PROMPT coke— System. 

Per passare dalla comunicazione allo 
stato comandi, come si è già visto, si usa 
un carattere di break ridefinibile la cui 
azione è quella di mantenere attivo il col- 
legamento per permetterci di svolgere le 
nostre operazioni. 

Il modo di tornare al collegamento è quel¬ 
lo didigitare CONNECT, il quale essendo 
l’unico comando che inizia per C, è ab¬ 
breviarle con la sola lettere iniziale, così 
come la B per BYE. 

Per altri comandi come RECEIVE e RENA- 
ME, che hanno anche la seconda lettera 
in comune, è necessario digitare almeno 
tre lettere, altrimenti il programma ci ac¬ 
cuserà di ambiguità! 

L’estetica di questo programma è al¬ 
quanto primitiva e lo fa somigliare ad uno 
di quei programmi di comunicazione per 
sistemi CP/M, come ASCOM o TELED, ma 
la sua efficacia e le sue prestazioni sa¬ 
ranno sicuramente apprezzate dagli 
utenti più esigenti che non si accontenta¬ 
no solo dell’XMODEM. 

Ricordatevi, se volete fare una copia di 
questi due programmi per persone estra¬ 
nee, di non copiare i file con estensio¬ 
ne .INI perché contengono i dati persona¬ 
li. 

Copiate dunque solo i file .COM che, even¬ 
tualmente, provvederanno da soli a 
creare i suddetti file di appoggio. 

MSX COMPUTER CLUB BRESCIA 
c/o Nicola Pizzicara 
fonia 030/2301425 

dati 300/1200 8n1 030/2304121 ■ 
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DIALOGHI IN DIRETTA 

L’EVOLUZIONE DELLA MAILBOX 


Abbiamo sempre detto che Videotel non è 
un contenitore di banche dati da consulta¬ 
re, ma un nuovo mezzo di comunicazione 
a copertura nazionale e dal costo estrema- 
mente ridotto 


N’inizio c’era solo la mailbox, 
un semplice ma efficace 
mezzo per inviare messaggi 
in posta elettronica a qual¬ 
siasi altro utente. 

Il dialogo possibile con questo sistema era 
di tipo epistolare a pagine con la possibilità 
di utilizzare messaggi particolari con grafi¬ 
ca e colori. 

Il passo successivo è stato fatto con le pa¬ 
gine di risposta: apposite frames con dei 
campi compilabili dagli utenti e preindiriz¬ 
zate al fornitore d’informazione proprieta¬ 
rio della trame. 

Con un po' di tecnologia e la solita inventi¬ 
va anglosassone, su Prestel nasceva poi il 
servizio di Chatline, sviluppato da Mike 
Brown (fra l’altro, uno degli artefici del tele- 
software videotex). 

Il principio alla base del servizio stava nel 
trasformare nel minor tempo possibile le 
pagine di risposta inviate dagli utenti in pa¬ 
gine normali accessibili a tutti. 

In questo modo gli utenti potevano inviare 
messaggi leggibili da tutti e quasi in tempo 
reale. 

Il flusso dei messaggi con questo sistema 
era "da uno a tutti” ed era soggetto ai tem¬ 
pi tecnici di elaborazione di ciascuna tra¬ 
me. 

Con il miglioramento del software videotex 
sono poi nate due nuove forme di colloquio 
fra utenti in diretta: da una parte ancora su 
Prestel venivano realizzate le “Chatline di 
sistema” mentre in Francia con il massiccio 
sviluppo del Teletei nascevano le messag¬ 
gerie. 

Il primo tipo di servizio ricalcava lo schema 
della chatline originaria, realizzata in Bulk- 


Update, con i messaggi posizionati in una 
catena di messaggi, ma con la velocità di 
una procedura interna al Prestel stesso. 

Il secondo invece introduceva un nuovo ti¬ 
po di colloquio più vicino al concetto di 
mailbox. 

A tutti gli utenti connessi alla messaggeria 
era possibile inviare un messaggio ad un 
altro utente in maniera riservata e con una 
serie di automatismi studiati per facilitare la 
consultazione e l’invio. 

Lo sviluppo di nuove protocolli Gateway ha 
injine aperto la strada a un nuovo tipo di 
dialogo, quello più diretto e naturale in cui 
scompare il concetto di pagina e campo 
codificato per ricevere e trasmettere il mes¬ 
saggio. 

In questo nuovo tipo di messaggeria gli 
utenti sono come trasportati in saloni e 
stanze in cui liberamente possono parlare 
con uno o più altri utenti nel pieno rispetto 
del tempo reale. 

Con tutti questi modelli a disposizione i For¬ 
nitori d’informazione italiani hanno potuto 
realizzare diversi servizi che in breve tempo 
hanno scalato le classifiche degli accessi di 
Videotel. 

Dato il grande successo di queste iniziative 
si sta osservando una rapida proliferazione 
di messaggerie anche su Videotel, quindi vi 
consigliamo di consultare direttamente le 
pagine dei nuovi servizi per le ultime novità 
"in tempo reale". 

Al momento di andare in stampa i servizi 
dedicati al dialogo fra utenti in tempo reale 
(o quasi) sono cinque, vediamoli insieme. 


ALINE 


Nasce in Francia nel giugno dell’81 la pri¬ 
ma esperienza su vasta scala con 2.500 fa¬ 
miglie coinvolte alle quali è stato fornito un 
adattatore Videotex e la possibilità di colle¬ 
gamento ad oltre 140 servizi diversificati. 
Attualmente oltre 4 milioni e mezzo di termi¬ 
nali e più di 200.000 computers possono 
accedere a ben 10.000 servizi disponibili 24 
ore su 24. 


Nel mercato italiano sulla scorta delle espe¬ 
rienze francesi Aline in collaborazione con 
VideoMusic, della Beta Television stà gio¬ 
cando un ruolo di primo piano nello svilup¬ 
po della telematica di massa. 

In sinergia con le esperienze del Nouvel Ob- 
serveteur, permette di raggiungere un livel¬ 
lo di qualità e di sofisticazioni con i sistemi 
software, applicazioni telematiche: mes¬ 
saggerie, mail box elettronica, servizio di in¬ 
formazioni della Borsa, gestione del porta¬ 
foglio, trasmissione dei programmi, son¬ 
daggi per via telematica, giochi di strategie 
ecc. 

Il controllo dei sistemi di rete ha permesso 
l’intallazione di una filiale a New York, New- 
com Link che permette agli europei ed agli 
americani di scambiare messaggi sui due 
continenti al costo di poco superiore ad 
una comunicazione nazionale domestica. 
Così gli italiani potranno tramite Aline, il 
servizio di messaggerie elettronica di Tele- 
matix, comunicare con altri italiani ovun¬ 
que e per lo stesso prezzo con i francesi, gli 
americani e tra non molto belgi, inglesi e te¬ 
deschi. 


ALIYCHAT 

La banca dati l’Alleanza può essere anno¬ 
verata fra i Fornitori d’informazione più atti¬ 
vi di Videotel per numero di servizi e novità. 
Gli aggiornamenti delle varie rubriche sono 
frequenti e la varietà offerta merità più di un 
veloce sguardo. 

Fra tutte le proposte il servizio più gettonato 
è comunque l’Ally Chat, una messaggeria 
sviluppata e scritta su un PC IBM da Rober¬ 
to Montaruli seguendo il modello inglese in 
Bulk Update. 

La struttura è semplice e funzionale: ogni 
utente può vedere gli ultimi cento messaggi 
inviati in una serie di pagine concatenate e 
ordinate cronologicamente. 

Una nutrita serie di rimandi permettono du¬ 
rante la consultazione di inviare il proprio 
messaggio, di spostarsi avanti e indietro 
nella coda di messaggi, di andare diretta- 
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mente all'ultimo messaggio e di utilizzare la 
mailbox Videotel sia in lettura che in scrittu¬ 
ra (rimandi alle pagine 930 e 1940). 

In ogni pagina è visualizzato il nome del¬ 
l’utente che ha inviato il messaggio, la sua 
mailbox, l’ora e la data di invio ed, ovvia¬ 
mente, il messaggio. 

Il flusso dei messaggi in Ally Chat è da uno 
a tutti ed è necessaria un po’ di pratica per 
poter intervenire nei discorsi. 

La capacità di visualizzazione dei messag¬ 
gi di questo servizio è vincolata dalla ne¬ 
cessità di gestire un solo messaggio alla 
volta e l’impazienza di un utente che spedi¬ 
sce più messaggi di fila può causare un 
sensibile rallentamento nella visualizzazio¬ 
ne dei messaggi più recenti. 

Nel caso in cui non vedete visualizzato il vo¬ 
stro ultimo messaggio, non inviatene un al¬ 
tro ma attendete che la coda di messaggi in 
attesa di visualizzazione si svuoti un po’; 
solo in questo modo Ally Chat potrà mante¬ 
nere al minimo il ritardo nella visualizzazio¬ 
ne dei messaggi. 

Un’altra regola da seguire per il miglior fun¬ 
zionamento del servizio è quella di utilizzare 
la pagina 1940 per inviare messaggi perso¬ 
nali che altrimenti sarebbero solo di distur¬ 
bo per gli altri utenti. 

Il messaggio di sistema “NUOVI MESSAGGI 
PER LEI” avverte immediatamente l’utente 
destinatario e non è quindi neanche neces¬ 
sario segnalare l'invio con un messaggio 
su Ally Chat. 

Per utilizzare al meglio il servizio è necessa¬ 
rio trovare il giusto “mix” fra messaggi pub¬ 
blici e mailbox, inoltre la presenza dei ri¬ 
mandi alla pagina 1940 e 930 sveltisce mol¬ 
to le operazioni. 

Un pezzo di carta per annotare gli identifi¬ 
cativi è un altro elemento essenziale per il 
buon svolgimento del dialogo. 

Ricordate infine che con * x potete tornare 
direttamente alla pagina precedente. 

Il servizio è costantemente sotto il controllo 
del "sysop” che, oltre a movimentare i dia¬ 
loghi, provvede a dare consigli ed istruzioni 
a chi ne ha bisogno. 

Per facilitare il colloquio, in questo servizio 
è presente una pagina contenente l’elenco 
degli ultomi sei utenti che hanno inviato un 
messaggio; non si tratta di un vero e pro¬ 
prio elenco degli utenti in linea, ma da 
un’idea abbastanza verosimile di chi sta 
utilizzando il servizio in quelmomento. 

Dato che i messaggi sono su pagine pub¬ 
bliche si richiama ciascun utente alla cor¬ 
rettezza ed all’educazione per non costrin¬ 
gere il sysop a prendere provvedimenti ver¬ 
so gli utenti meno educati. 


L’accesso ad Ally Chat è alla pagina 4196 
ed il servizio ha alcune parti a pagamento: 
ogni volta che leggiamo un messaggio ab¬ 
biamo un addebito di L.10 mentre non è 
previsto alcun costo per l’invio. 

È possibile essere registrati come utenti abi¬ 
tuali attraverso una pagina a pagamento 
da L. 1.000. 

Il servizio è in funzione tutti i giorni venti- 
quattr’ore su ventiquattro. 


PHIIIPS 

Dopo l’introduzione sul mercato del Tele¬ 
matico, la Philips ha attivato su Videotel 
una serie di servizi per il grande pubblico 
studiati appositamente per favorire il con¬ 
tatto fra gli utenti. 

Sotto la classificazione dei dialoghi in diret¬ 
ta troviamo la Chatline e l’Intervista. 

La prima si basa su un pacchetto software 
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inglese, parente diretto delle prime chatline 
su Prestel, in grado di elaborare un mes¬ 
saggio in circa diciotto secondi utilizzando 
la tecnica del Bulk-Update. 

Anche per questo servizio (presentato pra¬ 
ticamente in contemporanea con l'Ally 
Chat) la struttura è a catena di messaggi 
ordinati cronologicamente. 

I rimandi disponibili su ciascuna pagina 
servono a spostarsi avanti e indietro nella 
coda di messaggi, ad andare all'ultimo 
messaggio pubblicato, ad inviare un mes¬ 
saggio e ad accedere alle pagine 930 e 
1940 per la Mailbox. 

I messaggi inviati dagli utenti sono visualiz¬ 
zati su pagine pubbliche secondo lo sche¬ 
ma uno a tutti; l'utilizzo di Chatline in com¬ 
binazione con la mailbox permette di intrat¬ 
tenere dialoghi con una certa rapidità. 

Su ogni pagina sono visualizzati lo pseudo¬ 
nimo di chi invia il messaggio, il suo numero 
di mailbox, la data e l’ora d’invio e il mes¬ 
saggio. 

II servizio è completamente gratuito ed il 
Fornitore d’informazioni che lo gestisce per 
Philips spera di poter compensare i costi di 
gestione con l'inserimento di una sponso¬ 
rizzazione pubblicitaria sull’ultima riga. 

La Chatline Philips è a pagina 4196 e fun¬ 
ziona durante i giorni lavorativi dalle 10 alle 
19. 

Con l’Intervista abbiamo un modo diverso 
per dialogare. 


La meccanica del servizio è apparentemen¬ 
te più complessa dato che i messaggi invia¬ 
ti dagli utenti non sono visualizzati diretta- 
mente, ma dopo un'operazione di filtraggio 
e completamento. 

Lo scopo dell’Intervista è quello di permet¬ 
tere a tutti gli utenti di formulare in diretta 
delle domande ad un “ospite” che intrattie¬ 
ne con loro un dialogo. 

Lo schema è quindi da tutti a uno e da uno 
a tutti. 

Non esiste un tempo preciso per l’elabora¬ 
zione di ciascun messaggio in quanto tutti i 
messaggi inviati sono concentrati sulla po¬ 
stazione master da cui l'intervistato digita 
ed invia le risposte. 

A video il servizio si presenta come una ca¬ 
tena di frames il cui contenuto è diviso in 
due parti orizzontali. 

Su quella superiore è visualizzato lo pseu¬ 
donimo, il numero di mailbox e la domanda 
dell’utente mentre in quella inferiore si trova 
la risposta dell'intervistato. 

Tecnicamente è utilizzato ancora il Bulk- 
Update, ma il vero collo di bottiglia è la ca¬ 
pacità dell’intervistato di gestire le risposte 
con rapidità. 

Si tratta di un servizio particolarmente inte¬ 
ressante che meriterebbe da parte di Phi¬ 
lips maggiore attenzione in quanto fino ad 
oggi un solo ospite è stato portato sulle pa¬ 
gine di Videotel. 

Anche in questo caso il servizio è gratuito 


mentre non ci è possibile comunicarvi gli 
orari di funzionamento. 


SELENE 


Una valida alternativa all’impiego del 
Bulk-Update per la realizzazione di un ser¬ 
vizio di messaggistica è il Gateway. 
Utilizzando un elaboratore esterno è possi¬ 
bile non solo ridurre notevolmente il tempo 
di elaborazione dei messaggi (che non de¬ 
vono più essere scaricati, elaborati e inviati 
a Videotel), ma è anche possibile ricreare la 
struttura tipica delle messaggerie francesi. 
Per Selene infatti la scelta è caduta sulla 
classica messaggeria "uno a uno" in cui 
agli utenti è presentato l’elenco degli utenti 
collegatia cui è possibile inviare un mes¬ 
saggio. 

Questo nuovo schema comporta l’assenza 
di una catena di messaggi pubblici in cui 
ciascun utente può inserire il propio e la¬ 
scia il posto a colloqui più diretti e riservati. 
Il funzionamento del servizio è inizialmente 
un po’ complesso in quanto al posto di 
semplici rimandi si hanno a disposizione 
una serie di comandi tramite i quali è possi¬ 
bile inviare e leggere i propri messaggi. 

I tipi di pagina visualizzati sono tre: l’elenco 
degli utenti collegati, la pagina per l’invio di 
un messaggio ad un utente e la pagina per 
la risposta ad un messaggio ricevuto. 

II Gateway utilizzato è ancora di tipo Prestel 
e quindi non è possibile per l'host segnalar¬ 
ci autonomamente il ricevimento di un mes¬ 
saggio; ad intervalli regolari conviene pre¬ 
mere "invio" per vedere se ci sono dei mes¬ 
saggi. 

Oltre ai messaggi personali è possibile in¬ 
viare un messaggio pubblico di lunghezza 
limitata a venti caratteri ed una breve serie 
di messaggi preconfezionati aiuta ad avvia¬ 
re i contatti. 

La tariffazione del servizio è a tranches da 
cento minuti il cui costo è di L. 20.000. 
Ogni nuovo utente si sceglie uno pseudoni¬ 
mo ed una password e passa in una serie di 
pagine per l'addebito dei primi cento minuti. 

Il sistema permette poi di sapere quanto 
tempo è rimasto e provvede a comunicare 
quando sarebbe meglio acquistarne del¬ 
l’altro. 

Dall’aspetto esteriore del servizio sembre¬ 
rebbe che si tratti di un pacchetto francese 
adattato al funzionamento del Prestel Ga¬ 
teway, quindi pensiamo che la Selene chie¬ 
derà presto l’aggiornamento a X.29 per da¬ 
re al servizio le sue piene funzionalità in 
tempo reale. 
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Da questo servizio Selene a creato due aree 
distinte: Ermete ed Afrodite. 

La prima è dedicata a chi vuole intrattenere 
con gli altri utenti una normale conversa¬ 
zione mentre la seconda tratta di argomenti 
più intimi. 

La divisione è stata fatta su richiesta degli 
utenti che desideravano poter separare i 
dialoghi normali da quelli a sfondo erotico 
evitando così disturbi e spiacevoli inconve¬ 
nienti. 

La registrazione e l’acquisto di minuti di 
connessione in un’area è indipendente dal¬ 
l’altra, ma un meccanismo di “cessione” 
del tempo acquistato ad un altro pseudoni¬ 
mo permette di gestire il proprio tempo sui 
due servizi. 

Sempré nello stesso servizio di messagge¬ 
ria è anche possibile creae una mailbox 
sotto pseudonimo indipendente da Videotel 
per tutti i contatti che si vogliono gestire 
anonimamente. 

La disponibilità del servizio è su tutto l'arco 
della giornata, ma qualche volta è possibile 
non trovare neanche un accesso disponibi¬ 
le a causa dell’intrinseca limitazione del 
Gateway. 


SISCAT CHATLINE 

Gli sviluppi della tecnologia videotex hanno 
determinato la nascita di server sempre più 
economici passando dai mainframe ed i mi- 
cro ai funzionali PC. 

La Siscat è distributrice per l’Italia dell’ap¬ 
plicazione Pantel che permette di creare 
servizi in Gateway e i rete a commutazione 
di pacchetto o commutata utilizzando un 
PC dotato di sistema operativo XENIX quale 
interfaccia per l’host su cui la banca dati è 
residente. 

Oltre a questo il Pantel è però in grado di di¬ 
ventare un server autonomo con tanto di 
banca dati utilizzando gli strumenti di svi¬ 
luppo forniti con l’applicazione. 

Per dimostrare proprio questa flessibilità la 
Siscat ha realizzato una banca dati in Ga¬ 
teway con una serie di servizi ed una Chat li¬ 
ne. 

Lo schema utilizzato è ancora quello ingle¬ 
se con la catena di messaggi in ordine cro¬ 
nologico. 

Anche qui una pagina speciale permette di 
sapere chi ha inviato un messaggio negli 
ultimi minuti. 

In ciascuna frame sono riportati i soliti ri¬ 
mandi, con la differenza che per le mailbox 
da inviare ed in arrivo si fa riferimento alla 
posta elettronica all’interno del Gateway. 



La velocità del servizio per la pubblicazione 
dei messaggi è molto buona mentre il nu¬ 
mero di accessi contemporanei al gateway 
è come al solito limitato, 
il costo per l’utilizzo della chatline è artico¬ 
lato su due tipi di operazioni: ogni messag¬ 
gio inviato costa L. 10 e la consultazione 
dell’elenco degli utenti collegati costa L. 50. 
L’onnipresente sysop provvede ad intrattene¬ 
re gli utenti nei momenti di poca affluenza e 
mantiene calmi gli spiriti nei momenti delicati. 
Grazie al Gateway non è necessario lasciare 
all’applicazione il tempo di smaltire i messag¬ 
gi arretrati mentre è necessario cercare di es¬ 
sere veloci sia nella lettura che nell’invio dei 
messaggi per non perdere il filo dei discorsi. 
Per poter usufruire del servizio di mailbox 
interno al Gateway è necessario diventare 
utenti registrati: la procedura non è compli¬ 
cata e va fatta una sola volta, dopodiché si 
può utilizzare la Chat Line Siscat con gli 
stessi vantaggi delle altre chatline su pagi¬ 
ne Videotel, ma con una maggiore rapidità. 
Il servizio è accessibile tramite la pagina 
6995 ed è funzionante durante tutto l’arco 
della giornata senza interruzioni. 


CONCLUSIONI 

I dialoghi in diretta esercitano sugli utenti 
un forte fascino per una serie di motivi psi¬ 
cologici. 


La possibilità di crearsi una personalità “te¬ 
lematica” magari completamente diversa 
da quella reale, l’anonimato, l’eliminazione 
delle distanze (con una spesa per nulla ele¬ 
vata) e soprattutto la sicurezza di non esse¬ 
re direttamente raggiungibili dall’interlocu¬ 
tore creano una situazione particolare che 
permette a ciascuno di presentarsi agli altri 
senza i vincoli che normalmente inquadra¬ 
no e limitano il dialogo interpersonale. 
Purtroppo tutta questa libertà di espressio¬ 
ne può portare qualche utente a ignorare le 
normali regole comportamentali e questo 
talvolta svaluta i servizi. 

Per fortuna i tipi di messaggeria disponibili 
su Videotel offrono ormai tutte le varie tipo¬ 
logie di comunicazione (uno a uno, uno a 
tutti ecc.), quindi a ciascuno è data la pos¬ 
sibilità di collegarsi al servizio più adatto. 
Un altro piccolo problema che rende talvol¬ 
ta sgradevole o difficile l’utilizzo di questi 
servizi è la tendenza di alcuni utenti a mo¬ 
nopolizzare i dialoghi. 

La politica di tariffazione attualmente appli¬ 
cata ci sembra più che modesta, soprattut¬ 
to se paragonata a quelle di Prestel e Tele- 
tel dove è facile spendere anche quindici o 
ventimila lire in un’ora. 

Il prossimo passo, a carico dei Fornitori 
d’informazione, sarà quello di dare una cer¬ 
ta personalizzazione a ciascun servizio fa¬ 
vorendo la suddivisione degli utenti per 
aree d’interesse. ■ 
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ALINE 

A Milano, il 29 giugno 1989, Claude Per- 
àrie! e Marialina Marcucci hanno annun¬ 
ciato, in occasione di un incontro con la 
Stampa Italiana, la costituzione di Tele- 
matix 


hh elematix è una Joint-venture 

| tra il Gruppo Nouvel Obser- 

vateur e Beta Television (Vi- 
deomusic e Superchannel) 
® che trasferirà in Italia sulla 

rete Videotel, la straordinaria esperienza 

del Minitei francese cogliendo l’opportunità 
del massiccio impegno tecnologico e com¬ 
merciale con cui la Sip stà rilanciando il si¬ 
stema Videotel. 

Telematix ha installato a Milano un proprio 
centro (computers, software ecc.) collegato 
alla rete Videotel della Sip e renderà dispo¬ 
nibili una serie di servizi rivolti al largo pub¬ 
blico nei seguenti settori: news, informazio¬ 
ne finanziaria, formazione, messaggistica e 
electronic mail, giochi strategici. 

Oltre a creare questi nuovi servizi Telematix 
opererà in altre due direzioni: 

- opererà per conto di terzi fornitori di servi¬ 
zi. 

In pratica mette a disposizione il proprio 
centro e il proprio knowhow informatico 
(software, immissione dei dati ecc...) per 
chiunque desideri offrire un servizio sulla 
rete Videotel. 

- servirà da centro di smistamento (rerou- 
ting) per qualsiasi utente Videotel che desi¬ 
deri collegarsi alla rete (e ai servizi) del 
gruppo Nouvel Observateur in Francia, 
USA, Canada, Belgio, Regno Unito e d’altri. 


AUNE NASCE IN FRANCIA 


L’avventura telematica, come spiega Geor¬ 
ges Nahon, direttore generale del settore 
telematico del Nouvel Observateur nasce 
esattamente otto anni fa. 

Nel giugno 1981, la prima esperienza di vi¬ 
deotex rivolta al grande pubblico fu lancia¬ 
ta in Francia nella regione di Versailles e di 
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Velizy vicino a Parigi. 

A quell'epoca 2500 famiglie avevano rice¬ 
vuto un adattatore videotex di televisione e 
potevano collegarsi a circa 140 servizi vari. 
Nel frattempo in Bretagna, a Saint Malo, si 
provava a consultare l’annuario telefonico 
con un piccolo terminale a schermo, colle¬ 
gato al telefono. 

Oggi la telematica in Francia è diventata 
una vera componente della vita economica 
del Paese con più di 4 milioni e mezzo di ter¬ 
minali videotex installati, cica due centomi¬ 
la personal computers comunicanti e più di 
10 mila servizi disponibili. 

Un traffico molto intenso sia da parte del 
grande pubblico generico, sia in campo 
professionale, caratterizza questo mercato 
che nel corso del 1989 sta subendo una for¬ 
te innovazione nei servizi e nei prodotti. 

Ci sono state tante spiegazioni avanzate 
per questa dinamica e questo forte incre¬ 
mento. 

Ciò che caratterizza certamente il successo 
di questo grande progetto è il dirigismo del¬ 
lo Stato o la volontà dei politici per assicu¬ 
rare l’efficacia operativa e la capacità d'in¬ 
vestimento delle poste e telecomunicazioni 
francesi. 

Se analizziamo un po’ più nei dettagli ciò 
che realmente è successo, scopriamo che 
delle scelte giudiziose sui piani tecnici del- 
l’infrastruttura e più ancora della definizio¬ 
ne dei ruoli dei differenti interessati hanno 
contribuito decisamente al successo. 
Riassumiamo l'essenziale: - la messa in fun¬ 
zione di una rete telematica nazionale, eco¬ 
nomica per i fornitori di servizi e gli utilizza¬ 
tori per il quale i costi non dipendono dalla 
distanza. 

- la fornitura di un servizio di base del quale 
ogni cittadino può capire l’utilità: l’elenco 
telefonico, che corrisponde a una necessità 
ben identificata. 

- la distribuzione massiccia di terminali 


semplificati e il noleggio a prezzi bassi di 
terminali più sofisticati per aprire il mercato 
che all’epoca, nel 1982, non era per niente 
famigliarizzato con la telematica nè la mi¬ 
cro-informatica. 

- un sistema semplice per fatturare i servizi 
e collegare i costi dovuti: l’introduzione del 
sistema “Kiosque" telematico nella prima¬ 
vera del 1984. 

I fornitori di servizi hanno giocato un ruolo 
fondamentale una vota messo in funzione 
l’infrastruttura telematica nazionale: in ef¬ 
fetti, la creazione di servizi originali, utili o di 
divertimento è stata accompagnata da 
enormi campagne pubblicitarie per pro¬ 
muovere l'utilizzazione del Videotex. 

La notorietà creata è stata così importante 
che oggi i messaggi pubblicitari non hanno 
più bisogno di spiegare cos’è lo strumento te¬ 
lematico: basta menzionare il numero di tele¬ 
fono (3615-3616-3617 ecc...) della rete videotex 
e il codice da battere sulla tastiera del ter¬ 
minale e il mercato capisce di che si tratta. 
Ma soprattutto la telematica ha portato dei 
nuovi mezzi per trattare dei problemi com¬ 
plessi in un modo giudicato economica¬ 
mente irrealizzabile prima del suo avveni¬ 
mento. 

Per esempio le relazioni fra un’impresa e la 
sua rete di distribuzione e anche i suoi 
clienti, per ordinare a ogni ora del giorno e 
della notte o la prenotazione di posti o l’aiu¬ 
to nella decisione nell’ambito dei servizi do¬ 
po vendita. 

II linguaggio di interazione molto semplice 
utilizzato in telematica in Francia è diretta- 
mente derivato dai dialoghi messi a punto 
per l’elenco elettronico delle PTT, efficace 
rapido e utilizzabile da tutti. 

Il modo di presentazione dell’informazione 
sullo schermo è stato sfruttato nei minimi 
dettagli dai fornitori di servizi per permette¬ 
re delle interazioni rapide senza avere a ri¬ 
petere delle informazioni che non cambia- 
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no spesso. 

Così i tempi di risposta sono brevi e i’utiliz- 
zatore è guidato passo per passo per la sua 
via e può ritornare indietro senza perdere di 
vista il resto della sua richiesta o del suo 
messaggio. 

Tutto questo savoir-faire è largamente do¬ 
vuto al fatto che il settore privato in Francia 
ha dato prova di tanta immaginazione ma 
anche ha molto investito finanziariamente e 
in tempo, perchè non esisteva niente al¬ 
l’epoca sul mercato che potesse rispondere 
alle nuove richieste della telematica. 

Una nuova ondata di società piccole e in¬ 
novatrici è apparsa creando nuovi impieghi 
e nuovi mestieri. 

È in questo momento che il mercato dell’in- 
formatica tradizionale cominciava ad esse¬ 
re invaso dall’arrivo dei PC, dall’abbassa¬ 
mento dei costi dei sistemi informatici e dal¬ 
la divulgazione delle trasmissioni di dati in¬ 
formatici sulla rete di telecomunicazione. 


ALINE IN ITALIA 

Il mercato della telematica in Italia dovreb¬ 
be conoscere uno sviluppo interessante en¬ 
tro i prossimi tre anni per due ragioni: 

1) è possibile ormai comprare dei Modems 
a dei prezzi sempre più interessanti per ren¬ 
dere il personal computer comunicante, 
dato che non è più necessario pagare una 
tassa di utilizzazione dei modems. 

Si può dunque contare su una popolazione 
potenziale di decine di migliaia di personal 
computers comunicanti e probabilmente 
più di centomila fra uno o due anni. 

2) la SIP ha previsto di affittare per il suo 
progetto “VIDEOTEL" dei piccoli terminali a 
schermi per un modesto importo, cosa che 
non solo interesserà gli utenti professionali 
e il grande pubblico, ma che aiuterà lo svi¬ 
luppo di applicazioni telematiche per le im¬ 
prese, ciò che era fin’ora reso impossibile a 
causa del prezzo dei terminali e la povertà 
relativa ad alcuni software di applicazione. 
La rete Videotel della Sip stà diventando 
sempre più trasparente alle norme di visua¬ 
lizzazione e diventerà una rete privilegiata 
per il trasporto di dati informatici. 

Inoltre, la fatturazione della Sip agli utenti 
per il conto dei fornitori di servizi Videotel, è 
notevolmente migliorata, andando incon¬ 
tro alle esigenze dei fornitori di servizi per¬ 
mettendo loro di risparmiare dei costi di uti¬ 
lizzazione molto importanti. 

Insomma, diventa possibile sviluppare ap¬ 
plicazioni telematiche redditizie ed econo¬ 
miche. 


TELEMATIX 


Questa società è il risultato di più di dieci 
mesi di studio e di osservazione di mercato. 
Georges Nahon del Nuovel Observateur 
che è fra i più importanti attori della telema¬ 
tica Minitei in Francia (170.000 ore di con¬ 
nessione al mese) e Pier Luigi Stefani diret¬ 
tore generale della Beta Television (Video¬ 
music) già attiva nella rete Videotel hanno 
deciso che un’alleanza, grazie alle loro 
competenze, gli dava un’opportunità signi¬ 
ficativa per giocare un ruolo di primo piano 
nello sviluppo della telematica di massa in 
Italia. 

Beta Television ha sperimentato tutte le 
nuove tecnologie di interattività elettronica 
controlla perfettamente le tecniche della 
comunicazione di massa e della promozio¬ 
ne, inoltre diversi programmi di televisione 
della beta Television potranno dare luogo 
ad una complementarità televisione¬ 
telematica. 

Il Nouvel Observateur ha investito più d 50 
milioni di franchi in ricerca e sviluppo in 
quattro anni per raggiungere il livello di 
qualità e di sofisticazione che presentano i 
suoi software di sistemi e d’applicazioni te¬ 
lematiche: messaggerie, mail box elettroni¬ 
co, servizio di informazioni della borsa, ge¬ 
stione del portafoglio, telecarica di software 
per personal computer, sondaggi via tele¬ 
matica, giochi di strategia ecc. 

Il controllo perfetto dei sistemi di rete hanno 
permesso l’installazione di una filiale a New 
York, Newcom Link che permette agli euro¬ 
pei e agli americani di scambiare dei mes¬ 
saggi e di consultare dei servizi telematici 
disponibili sui due continenti con appena 
un po’ di più del prezzo di una comunica¬ 
zione nazionale (domestica). 

Così gli italiani potranno tramite Aline, il 
servizio di messaggeria elettronica di tele- 
matix, comunicare con altri italiani con i 
francesi, gli americani e fra poco i belgi, gli 
inglesi e i tedeschi ovunque per lo stesso 
prezzo. 


I SERVIZI DI TELEMATIX 

Ovviamente diversi servizi di qualità saran¬ 
no prossimamente proposti su Videotel e 
altri utilizzatori di PC in Italia. 

Si tratta di servizi prodotti da Telematix. 
Ma gli ordinatori e la rete privata di telema¬ 
tix basata a Milano permetteranno a diver¬ 
se Società di beneficiare degli stessi softwa¬ 
re per produrre dei servizi personalizzati 


senza avere da pagare i costi di sviluppo 
molto elevati di questi software. 

Per un costo marginale e senza rischio fi¬ 
nanziario potranno appoggiarsi su Tele¬ 
matix per mettere in funzione molto rapida¬ 
mente dei servizi d’informazioni, di sondag¬ 
gi, di corrispondenza elettronica di ordina¬ 
zioni, di base dati ecc. 

Pensate alla rete di distribuzione o di agen¬ 
zie di una Società, a dei servizi di promozio¬ 
ne di servizi o di prodotti di assistenza dopo 
la vendita. 

Nessun investimento in apparecchiature 
ed in software saranno necessari per pro¬ 
vare questa forma di comunicazione mo¬ 
derna. 


TELEMATIX 

Una nuova apertura verso la Telematica. 
Telematix è una struttura di accoglienza dei 
servizi di tutte le imprese interessate a svi¬ 
luppare o a provare le possibilità straordi¬ 
narie della telematica. 


TELEMATICA: IL PREZZO 
DA PACARE 

L’avventura telematica in genere può pre¬ 
sentare delle trappole sconcertanti per le 
imprese con troppa fretta di entrare nel 
mercato senza aver provato con precauzio¬ 
ne la fattibilità tecnica ed economica dei lo¬ 
ro progetti. 

Il mercato è certo in sviluppo, ma non sarà 
capace ancora per qualche tempo di as¬ 
sorbire una moltiplicazione di iniziativa in 
questo ambito. 

Ecco perchè noi proponiamo di fornire in¬ 
formazioni ai candidati al lancio dei servi¬ 
zi telematici prima che decidano di inve¬ 
stire somme importanti in progetto di que¬ 
sto tipo. 

Possono cominciare con dei test a poco 
prezzo limitando i rischi. 

Il “Ticket” d’entrata è molto caro in telema¬ 
tica se si vuole essere serveur per gli altri. 
La tecnologia e sua abilitazione sono es¬ 
senziale ma ci vuole tempo e perseveranza 
per giustificare economicamente il ruolo 
del servitore. 

Telematix ha fatto la scelta di essere ser¬ 
veur perchè pensa di aver già pagato lo 
scotto per la curva di apprendimento ed 
ora noi vogliamo mettere a disposizione del 
mercato gli attrezzi e il saper fare che ab¬ 
biamo sviluppato. ■ 
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COSA BOLLE 
IN PENTOLA 

PIÙ TECNOLOGIA 
PER MAGGIORI INNOVAZIONI 


Scomparsi i dubbi sulla ricettività del mer¬ 
cato, Videotel ha preparato una serie di in¬ 
novazioni tecnologiche per garantire un 
servizio in costante miglioramento al 
sempre crescente numero di utenti 


ettembre è sempre un mese 
di rinnovamento in quanto 
segna l’inizio dell’anno lavo¬ 
rativo per le aziende (e quin¬ 
di anche per i privati) e gli 
appuntamenti come lo SMAU sono ormai il 
punto di riferimento per la presentazione 
delle novità. 

Dopo alcuni mesi di ricerche ed analisi an¬ 
che per Videotel è arrivato il momento di 
scoprire le nuove carte da giocare sul mer¬ 
cato della telematica italiana. 

Le innovazioni sono in alcuni casi la con¬ 
cretizzazione di vecchi progetti ed in altri 
delle gradite sorprese, vediamole con ordi¬ 
ne. 

La prima carta è dedicata all’affidabilità del 
servizio: Videotel ora si compone di una re¬ 
te di computer dislocati a Milano, Bologna 
e Roma connessi da più dorsali a commu¬ 
tazione di pacchetto e con una ridondanza 
tale da garantire l'operatività del servizio 
anche in caso di malfunzionamento della 
rete o dei centri. 

Il Master Database è a Roma ed affianca i 
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nove elaboratori slave (tre per ciascuna cit- 
tà). 

Su questo computer sono gestiti il databa¬ 
se principale, le funzioni di mailbox, gli ag¬ 
giornamenti e la fatturazione. 

Il totale delle porte ora disponibili per gli 
utenti è arrivato a 2496, ma a breve si avrà 
un’ulteriore aumento a 3520 con l’entrata in 
funzione di sedici VIP da sessantaquattro 
porte ciascuno. 

Il VIP è simile ad un elaboratore slave con 
l’unica differenza che non è dotato di data¬ 
base locale. 

Tramite la rete di collegamento ai nove ela¬ 
boratori ciascun VIP accede alla banca da¬ 
ti Videotel ed invia all’utente le informazioni 
richieste. 

Questa soluzione permette di migliorare la 
distribuzione sul territorio delle porte di ac¬ 
cesso utilzzando dei collegamenti di tipo 
semplificato con la rete a pacchetto. 

Sei elaboratori di comunicazione interfac- 
ciano i computer Slave ed il Master fra loro 
utilizzando due reti, una a 48Kbps e una a 
0.5 Mbps. 

L’organizzazione della rete e degli elabora¬ 
tori è con una ridondanza del cento per 



cento per le comunicazioni nella rete men¬ 
tre per gli accessi utente è stata sviluppata 
una tecnica che garantisce, in caso di gua¬ 
sto su un elaboratore slave, il proseguimen¬ 
to del servizio con un ridotto numero di por¬ 
te senza "black out” totale di nessuna zo¬ 
na. 

Con queste soluzioni per la rete, Videotel è 
in grado di soddisfare l’attuale traffico e 
l’incremento previsto, senza che si ripetano 
le fastidiose interruzioni che in passato 
hanno in qualche modo afflitto il servizio. 
Fra l’altro è anche stato istituito un presidio 
permanente (24 ore su 24) nei centri princi¬ 
pali. 

La seconda carta riguarda l’annoso pro¬ 
blema degli standard: l’Europa videotex è 
divisa nelle tre famiglie CEPT che ostacola¬ 
no il previsto collegamento fra i vari servizi 
europei. 

La soluzione italiana abbraccia non solo 
tutti e tre gli standard, ma offre tramite porte 
particolari anche il collegamento con termi¬ 
nali di tipo VT100 (ASCII). 

Videotel è infatti multistandard ed è in gra¬ 
do di gestire sia terminali conformi ai tre 
profili CEPT che banche dati realizzate se¬ 
condo questi standard. 

A seconda del terminale, il software Video¬ 
tel provvede a convertire le pagine o ad ini¬ 
bire l’accesso all'utente. 

Con questa soluzione è quindi possibile 
scegliere il profilo che più si adatta all’appli¬ 
cazione pur restando collegati ad un’unica 
rete. 

La terza carta è dedicata all’automatizza¬ 
zione degli accessi tramite una sofisticata 
procedura di Log-on: Videotel ora dispone 
sia di porte normali che autologon. 

Le prime richiedono al terminale password 
e ID mentre le seconde portano direttamen¬ 
te alla pagina di benvenuto. 

In pratica è già tutto pronto per l’accesso al 
servizio secondo lo schema francese a 
chiosco in cui la password non è utilizzata 
quale identificativo per l’addebito che inve¬ 
ce avviene direttamente sulla linea telefoni¬ 
ca utilizzata per il collegamento. 

Per entrambe le porte la procedura di colle¬ 
gamento prevede un protocollo per il rico¬ 
noscimento del tipo di terminale (CEPT li¬ 
vello 1, 2 o 3). 

La quarta carta, attesissima dai Fornitori 
d'informazione, riguarda l’aggiornamento 
del gateway. 

Tutte le applicazioni in gateway attualmen¬ 
te disponibili in Videotel sono state realizza¬ 
te utilizzando le procedure ed i protocolli 
del “Prestel Gateway” che, un po’ per l’età 
e un po’ per la radice Prestel, rappresenta 
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un vincolo alla flessibilità e potenza dei ser¬ 
vizi realizzabili tramite elaboratori esterni 
collegati alla rete Videotel. 

Ora la situazione è stata trasformata con 
l'aggiunta del protocollo X.29 che rende 
molto più semplice lo sviluppo delle appli¬ 
cazioni e soprattutto dà finalmente alla rete 
la “trasparenza" nel flusso dei dati dal¬ 
l’utente all’elaboratore esterno e viceversa. 
In pratica non è più necessario disporre di 
un’opportuna interfaccia software che adatta 
al videotex le procedure di colloquio e le infor¬ 
mazioni, ma si può avere un comportamento 
della rete Videotel nei confronti dell’elabora¬ 
tore esterno praticamente uguale a quello di 
un PAD di una rete X.25. 

Il collegamento in X.25 è già molto diffuso nel 
mondo della telematica e il protocollo X.29 è 
l’anello mancante per rendere Videotel com¬ 
patibile praticamente con qualsiasi applica¬ 
zione basata su un elaboratore esterno. 

Per comprendere meglio l’innovazione vale 
la pena di ricordare il funzionamento di en¬ 
trambi i tipi di gateway. 

Il Prestel Gateway basa il colloquio con 
l’host sul concetto di frame; le informazioni 
sono ricetrasmesse rigorosamente a bloc¬ 
chi compiuti e all’host è permesso inviare 
informazioni solo dopo l'invio di un blocco 
da parte dell’utente. 

Praticamente ad ogni “input” dell’utente 
può essere inviata una frame, ma non è 
permesso l’invio di “dati non richiesti” e 
quindi non è possibile creare servizi che 
hanno nel tempo la necessità di aggiornare 
l’utente senza che questo prema un tasto. 
Il gateway con protocollo X.29 rimuove il 
concetto di “frame" ed apre fra l’host e 
l’utente un canale bidirezionale di comuni¬ 
cazione in cui non esiste alcuna limitazione 
al flusso dei dati. 

Per rendere questo tipo di comunicazione 
compatibile con il maggior numero possibi¬ 
le di terminali e applicazioni sono state rea¬ 
lizzate sei diverse modalità di funzionamen¬ 
to che prevedono l’adattamento dei dati in 
finestre, la transcodifica dei codici a secon¬ 
da del terminale collegato e la presenza o 
meno di eco locale. 

Il protocollo X.29 sviluppato per il servizio 
italiano comprende anche la modalità Tele¬ 
tei che opera sia la transcodifica delle chia¬ 
vi che l’adattamento della grafica. 

L’ultima carta è una conseguenza dei note¬ 
voli aggiornamenti del software di base Vi¬ 
deotel: ora è possibile la connessione non 
solo con host operanti nella modalità CEPT 
2, ma con l’intera rete Transpac. 

Dall’Italia, anche con un terminale Prestel, è 
possibile accedere al Teletel 3 (in prece¬ 


denza raggiungibile solo con terminali 
CEPT 2 con una telefonata internazionale 
allo 0033-36.43.15.15) ed usufruire dei nu¬ 
merosissimi servizi francesi. 

Allo stesso modo gli utenti francesi potran¬ 
no visitare il nostro servizio. 

A questo punto si può proprio dire che Vi¬ 
deotel è stato il brutto anatroccolo della te¬ 
lematica: incompreso agli inizi perché an¬ 


cora intento a crescere strutturalmente ed 
ora pronto a darci ore ed ore di connessioni 
perfette ed interessantissime. 

Il Gestore ha avuto la pazienza di sopporta¬ 
re l’indifferenza iniziale degli utenti senza 
abbandonare il servizio a se stesso ed ora 
che tutto è pronto ce lo può riproporre co¬ 
me uno splendido cigno. 

Utente avvertito. 
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‘Energia e materia nelle antiche fucine, ‘immaterialità’ della telematica alle soglie 
del 2000. Ponendoti al centro di una vasta rete di scambi informativi puoi catturare tutte 
le notizie e i servizi che t'interessano tra quelli disponibili 24 ore al giorno su Videotel, 
dai giornali telematici interattivi agli scambi di messaggi con altri utenti e alle 
operazioni bancarie a domicilio, dagli aggiornamenti legislativi, amministrativi, 
e finanziari alle teleprenotazioni e teleacquisti. 

Per iniziare puoi consultare gli elenchi telefonici di tutt 'Italia interrogando il ‘12’ sullo 
schermo del piccolo terminale che la SIP offre per poche migliaia di lire al mese o 
collegando con Videotel un home/personal computer attraverso la normale rete telefonica. 


















































di RODOLFO ROSSI 


In questa terza puntata parleremo più dif¬ 
fusamente delle funzioni che il lan-han- 
dler deve possedere per gestire corretta- 
mente la rete 


Terza Parte 


bbiamo già accennato alla 
procedura di autoconfigura¬ 
zione di rete; dobbiamo ora 
adattare il nostro lan-han- 
dler in maniera tale che, 
quando questo viene attivato per la prima 
volta, provveda a spedire un messaggio 
che comunichi l'entrata in rete di una nuo¬ 
va macchina. 

Questo messaggio che chiameremo EL 
(Entring in Lan), inizierà a percorrere il loop 
di rete; se viene ricevuto da una macchina 
già configurata provocherà la trasmissione 
del messaggio che elenca le macchine in 
rete (in pratica forzerà una riconfigurazio¬ 
ne); se invece viene ricevuto tale e quale, fa¬ 
rà capire alla macchina che questa è la pri¬ 
ma ad entrare in rete e quindi provocherà la 
costruzione della tabella di rete per la mac¬ 
china stessa. 

Questa tabella, concepita in maniera che 
possa essere facilmente spedita, elenca le 
macchine attualmente collegate e sarà 

Composta da 64 bit (8 byte), rendendo COSÌ Esempio di rete con applicazione dei sistemi ÌOOOO NCR 



Host 


New Car 
Sales 


■ 


On-line 
Work Orders 




NCR System 10000 


Used Cars 


Payroll 


Parts 


Telex 


Employee 
Time Clock 



Warranty 


Customer 
Data Base 


m 


Accounting 
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Struttura dei pacchetti: 

( ogni pacchetto è racchiuso tra due "|” ) 

SOH = ascii Start Of Heading? 

EOT = ascii End Of Text; 

ACK = ascii Acknowledge; 

NAK = ascii Non Acknowledge 

EN: 

|OIOIEOT| 

LCT: 

| 020 2XXXXXXXXxxxxxxxxEOT| 

dove s 

XXXXXXXX = Tabella Bit-Map macchine in rete (la copia) 

xxxxxxxx = Tabella Bit-Map macchine in rete (2a copia) 

LCTS : 

| 222 2XXXXXXXXxxxxxxxxEOT| 
dove: 

XXXXXXXX = Tabella Bit-Map macchine in rete (la copia) 

xxxxxxxx = Tabella Bit-Map macchine in rete (2a copia) 

LNKRQ: 

|0303nnNNdddEOT| 
dove: 

nn = numero macchina richiedente 

NN = numero macchina di destinazione 

ddd = drive richiesto (in forma di stringa: es. DFO, DHO, ecc.) 
LNKACK: 

| 0404 nnNNACKEOT| 
dove: 

nn = numero macchina richiedente 

NN = numero macchina di destinazione 

ddd = drive richiesto (anch'esso in forma stringa) 

LNKNAK: 

|0505nnNNnakEOT| 

dove: 

nn = numero macchina richiedente 
NN = numero macchina di destinazione 
DAT: 

I 8080_dati_ EOTEOTEOT| 


possibile la gestione di 64 Amiga in contem¬ 
poranea. 

Questo particolare tipo di messaggio, una 
volta immesso in rete, sarà chiamato con il 
mnemonico LCT (Lan Configuration Ta- 
ble). 

Il lan-handler, quando riceve un LCT verifi¬ 
ca innanzitutto se l'Amiga su cui gira ha un 
identificativo di rete MN (Machine Number); 
se ciò risulta vero, allora verifica che il bloc¬ 
co LCT contenga anche il suo identificativo 
(aggiungendolo se non presente) e poi ri¬ 
trasmette il nuovo LCT. Se ciò non accade, 
il lan-handler verificherà che in lista ci sia 
un posto vuoto in cui inserirsi e ritrasmette¬ 
rà l’LCT occupando quel posto e configu¬ 
rando l’Amiga che gestisce con il numero di 
identificazione corrispondente al posto oc¬ 
cupato nell’LCT. 

Nel caso che la lista sia completa, questo 
terminerà l’elaborazione con un messaggio 
indicante che la rete è a pieno carico. 

Al termine della sequenza, l’Amy # 1 tra¬ 
smetterà un blocco LCTS (LCT Store) che 
comprenderà lo stato attuale della rete nel 
suo insieme, questo pacchetto sarà memo¬ 
rizzato e trasmesso a ogni macchina della 
rete. 

Nel caso che il pacchetto torni alterato al- 
l’Amy # 1, la sequenza viene ripetuta. 

Ogni minuto circa, la macchina con indiriz¬ 
zo 1 si prenderà carico di generare una 
nuova sequenza LCT inviando il blocco az¬ 
zerato e verificando che la tabella ottenuta 
non risulti diversa da quella memorizzata. 
In caso affermativo, la macchina 1 inizierà 
la sequenza LCTS. 

Tramite appositi comandi CLI potremo poi 
richiedere la visualizzazione dello stato del¬ 
la rete (numero di macchine collegate, drive 
di rete, ecc.). Un comando importante per 

10 sfruttamento completo di Amiga-Lan sa¬ 
rà invece il comando LINK che permetterà 
di associare il device logico LAN: al device 
fisico (DFx:, DHx:, JHx:, ecc.) di una macchi¬ 
na in rete. La chiamata di questo comando 
sarà quindi 

LINK ‘‘machine—number” ''machine—dri¬ 
ve" 

esempio: 

LINK 2 dfO: 

# 

associerà il device logico LAN: della mac¬ 
china su cui è stato scritto il comando al 
device DFO: della macchina che in rete è 
identificata con il numero 2. 

11 LINK così spedirà un pacchetto LNKRQ 
(LiNK ReQuest) alla macchina numero 2 di 
modo che il lan-handler dell’Amy # 2 saprà 


che le richieste provenienti dalla macchina 
chiamante andranno indirizzate sul drive 
specificato. 

La macchina ricevente dovrà quindi spedi¬ 
re alla macchina chiamante un pacchetto 
LNKACK (LiNK ACKnowledge) se accetta 
la connessione logica, o un pacchetto 
LNKNAK (LiNK Not Acknwleged) se il link 
non è permesso (es. drive non esistente, 
ecc.). 

Il trasferimento dei dati avverrà in modo 
molto semplice: Il File System spedisce al 
lan-handler una struttura di richiesta come 
fa al trackdisk.device, il lan-handler ag¬ 
giunge la macchina di destinazione e spe¬ 
disce il tutto in rete: il lan-handler destinata- 
rio riceve, ricostruisce il pacchetto in forma¬ 
to trackdisk e lo spedisce al trackdisk sulla 
propria macchina: attende la risposta e ri¬ 


spedisce il tutto alla macchina chiamante, il 
cui lan-handler decodifica la risposta e ri¬ 
sponde al programma chiamante esatta¬ 
mente come se al suo posto ci fosse un 
trackdisk.device. 

Il pacchetto per lo scambio di questi dati 
sarà dunque chiamato DAT (DAta Tran¬ 
sfer). 

Nel caso che il pacchetto venga ricevuto 
con errori, nessuna azione particolare vie¬ 
ne intrapresa da parte del ricevente: il tra¬ 
smittente infatti, dopo un time out di 5 se¬ 
condi nel caso di un generico pacchetto o 
di 15 secondi nel caso di un data transfer, 
ripeterà la richesta, controllando però, nel 
caso si sia ricevuto un nuovo LCT, che la 
macchina di destinazione sia ancora in re¬ 
te. in caso negativo viene generato un erro¬ 
re tramite un requester. ■ 
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Amiga Fish 


di ANDREA GIORGI 


Approfondiamo il discorso sulla differen¬ 
za tra Freeware e Shareware, nell’ambito 
del software di Pubblico Dominio per poi 
riprendere rillustrazione dei programmi 
presenti sui Fish Disk 


Seconda Parte 


ediamo innanzitutto che da 
un punto di vista strettamen¬ 
te legale parole quali Pub¬ 
blico Dominio, Freeware e 
Shareware non esistono nel 
nostro vocabolario di diritto pubblico, an¬ 
che se, possiamo trovare qualcosa che più 
si avvicina ai concetti che tali parole do¬ 
vrebbero esprimere. Si parla in questo caso 
di “Diritto d’autore”. 

Il diritto d’autore non è altro che la facoltà 
che la legge assegna all’autore di una 
qualsiasi opera di un qualsiasi genere di 
decidere chi e in che modo si può usare e 
quindi riprodurre la propria opera. 
Ricollegandoci ora al nostro problema ine¬ 
rente al software di pubblico dominio pos¬ 
siamo affermare che tale software è tale, 
appunto, proprio perché l’autore ha con¬ 
cesso a chiunque la facoltà di utilizzarlo in¬ 
teramente o in parti frazionate, di modifi¬ 
carlo e di rimetterlo sul mercato, ovviamen¬ 
te sotto nominativo differente: l’autore ri¬ 
nuncia, quindi, a tutti i diritti inerenti al pro¬ 
dotto una volta che tale è stato messo sul 
mercato. 

È, comunque, necessario ed opportuno se¬ 
gnalare che a volte un autore può dichiara¬ 
re il suo prodotto di Pubblico Dominio vie¬ 
tandone però espressamente la diffusione 
commerciale; in questo caso non si parla 
più di software di pubblico dominio nel sen¬ 
so stretto della parola. 

Ed è questo proprio il caso della maggior 


parte dei programmi di pubblico dominio. 
Ma come riconoscere un programma di 
pubblico dominio in senso stretto da uno 
che non lo è? Questo risulta molto semplice 
in quanto ogni autore che non intende ri¬ 
nunciare a tutti i diritti sul suo prodotto in¬ 
serisce nell’ambito del programma il simbo¬ 
lo (C) che sta per copyright. 

Vediamo ora qual è il concetto vero e pro¬ 
prio di Shareware. 

Siamo in presenza di programmi di share¬ 
ware quando l’utente di un prodotto invia 
all’autore dello stesso una somma quale 
pagamento per il prodotto acquistato. 

Tale somma è a completa discrezione del¬ 
l’utente in quanto l'autore dell’opera non 
obbliga nessuno a tale pagamento. Ov¬ 
viamente è interesse dell’utente mandare 
denaro agli autori onde poter ricevere poi 
le nuove versioni e tutte le informazioni 
necessarie ed utili inerenti all’opera “ac¬ 
quistata". 

Siamo, invece, in presenza di opere tipo 
freeware quando è consentito solo un uso 
limitato di tali. I termini sono fissati di volta 
in volta dall’autore dell’opera. 

Riprendiamo ora l’esame dei nostri Fish 
Disk. 


Fish Disk N. 009 

MOIRE Programma per la generazione di fi¬ 
gure Moire in bianco e nero. Si fa presente 
agli utenti di compilare il programma con la 
versione 3.02 del Lattice C onde evitare 
spiacevoli inconvenienti. 

MVP-FORTH MOUNTAIN View Press Forth, 
ecco una versione implementata del Forth 
proposta dalla Fantasia System. Il pro¬ 
gramma è eseguibile da Workbench. 

PROFF Proff è un altro dei numerosi editori 
di testo esistenti per Amiga. A nostro avviso 
è senz’altro la soluzione migliore ai vostri 
problemi di editing data la sua enorme effi¬ 
cacia e praticità. 

SETLACE Setlace è un programma che vi 
permetterà di attivare o disattivare il modo 
interlace con il vostro computer. 



Disk 


SKEWB Programma dimostrativo delle ca¬ 
pacità grafiche di Amiga. 

SPARKS Programma dimostrativo di grafi¬ 
ca in movimento. 


Fish Disk N. 010 

CONQUEST In questo gioco sarete a capo 
di un impero interstellare, dovrete decidere 
quale sistema stellare esplorare, quali pia¬ 
neti colonizzare, come impiegare le vostre 
risorse. Il successo della missione dipende 
da voi. Il computer dirigererà un suo impero 
proto ad annientarvi senza pietà. 

DEHEX Un programma per la trasformazio¬ 
ne di file esadecimali in file binari. 

FILEZAP Filezap è un programma di editor 
per file binari. 

FIXOBJ Programma per rimuovere tutte le 
imperfezioni da file oggetto trasferiti tramite 
protocollo XModem. 

IFF Una serie di routine per poter leggere e 
scrivere file informato IFF. 

LD Riteniamo che Id stia per list directory vi¬ 
sto che all’atto pratico Id è un nuovo meto¬ 
do per osservare la propria directory a vi¬ 
deo. 

LS Utilizzabile per listare i file della propria 
directory. 

SQ.USQ Squeeze and unsqeeze ossia com¬ 
patta e scompatta. Un nuovo compattatore 
più veloce e più efficace del compress pre¬ 
sentato nel disco n. sei. 

TREK73 II famosissimo gioco di Star Trek. 

YACHTC Gioco dei dadi. 


Fish Disk N. Oli 

DPSUDE Un programma molto interessan¬ 
te per la visualizzazione di immagini in for¬ 
mato IFF. Nella directory Dpslide sono an- 
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che presenti, a titolo dimostrativo, una serie 
di immagini per lo più create con il pro¬ 
gramma Deluxe Paint della Electronic Arts. 

PICTURES Una serie di immagini digitaliz¬ 
zate e/o create con Dpaint tutte in formato 
IFF e quindi visualizzabili tramite il pro¬ 
gramma Dpslide. 

Al termine della presentazione schematica 
dei programmi contenuti in questo dischet¬ 
to ci sembra opportuno fare una piccola 
pausa per poter meglio spiegare in modo 
più prettamente tecnico e approfondito le 
caratteristiche del programma DPSIide in 
quanto è, secondo la nostra opinione, uno 
dei migliori programmi, neH’ambito del soft¬ 
ware grafico, tra tutti quelli esaminati fino 
ad ora. 

DPSIide è un programma per la visualizza¬ 
zione di schermate di immagini in formato 
IFF. 

La sintassi è: 

DPSIide nomefile 

La grande facoltà che ha questo program¬ 
ma è quella di poter leggere istruzioni in un 
file ASCII appositamente creato dall'utente 
con programmi quali Emacs, ecc... e quindi 
visualizzare una sequenza di immagini. 
Utilizzando questo tipo di metodo e grazie 
all’ausilio del nostro DPSIide è possibile 
creare degli effetti veramente speciali e 
suggestivi quali dissolvenza di immagini, 
scorrimenti orizzontali e verticali, il tutto con 
una sequenza di immagini a ciclo continuo. 
Ogni effetto che noi intendiamo creare vie¬ 
ne controllato da un numero fisso apposi¬ 
tamente inserito nel file di controllo. 
Vediamo ora quali sono i valori possibili e le 
loro associazioni: 

0 Visualizzazione immediata dello schermo 

1 Dissolvenza dell’Immagine da visualizza¬ 
re in apertura 

2 Dissolvenza dell’immagine sia in apertura 
che in chiusura 

3 Scorrimento della vecchia immagine ver¬ 
so l’alto 

4 Scorrimento di una nuova immagine in 
sostituzione della vecchia. 

La linea completa di comando nel file Ascii 
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di controllo è la seguente: 

nomefile, modalità iniziale, modalità di vi¬ 
sualizzazione, modalità di chiusura, tempo 
di visualizzazione 

scorriamone ora i vari significati e i loro 
possibili valori. 

nomefile: 

corrisponde al nome del file in formato IFF 
che deve essere caricato per un massimo di 
80 caratteri. 

modalità iniziale: 

modalità con cui deve essere proposta la 
prima immagine sullo schermo con un nu¬ 
mero da 0 a 3. 

modalità di visualizzazione: 
tale modalità per il momento non è ancora 
stata ultimata indi per cui il suo valore deve 
essere posto sempre a zero. 

modalità di chiusura; 

stesso identico discorso fatto per la modali¬ 
tà di visualizzazione. 

tempo di visualizzazione: 
corrisponde a un numero equivalente al 
numero di secondi che si desidera l’imma¬ 
gine resti visualizzata. 

Esiste anche la possibilità di utilizzare, du¬ 
rante l’esecuzione del programma, alcuni 
tasti funzione quali FI, F2 ed FIO, vediamo¬ 
ne singolarmente la funzione. 

FI Sospende l’esecuzione del programma 
lasciando visualizzata l'immagine attuale. 

F2 Pone l’esecuzione del programma in 
background onde poter eseguire altri pro¬ 
grammi da CU. 

FIO Termina l'esecuzione del programma. 
ESEMPIO 

Supponiamo di essere in possesso di una 
serie di immagini in formato IFF con i nomi¬ 
nativi di listi, Iist2, Iist3, ..... listn. 

Scriviamo ora i seguenti file di controllo: 

listi, 0, 0, 0, 10 
Iist2, 2, 0, 0, 8 
Iist3, 3, 0, 0, 10 


listn, x, 0, 0, x 

Lanciando l’esecuzione del nostro pro¬ 
gramma DPSIide col seguito dal nome del 
file di controllo otterremo la visualizzazione 
della prima immagine listi seguita in ciclo 
da tutte le altre con i vari scorrimenti e le va¬ 
rie dissolvenze indicate dai parametri im¬ 
messi. 


Fish Disk N. 012 

AMIGA3D Amiga3d è un programma di 
grafica dimostrativa che ci presenta la ro¬ 
tazione tridimensionale di un solido. In 
questo caso purtroppo non è presente il 
file sorgente. 

ARGOTERM Ecco la versione 0.20 di uno 
dei tanti programmi di emulazione ter¬ 
minale scritti per il nostro Amiga. Argo- 
term è scritto interamente in macro As¬ 
sembler. 

ARROW3D Ecco un altro programma di¬ 
mostrativo delle qualità grafiche di Ami¬ 
ga. Anche Arrow3d ci mostra la rotazione 
tridimensionale di un solido, questa volta 
di una freccia. 

LD4 LD4 è un altro programma per listare 
le proprie directory in modo del tutto per¬ 
sonale. 

ICONEXEC Nella directory Iconexec sono 
presenti due Utilities. Iconexec e Setwin- 
dows sono due programmi che vi permet¬ 
teranno di crearvi le vostre icone e quindi 
visualizzarle direttamente da CLI. 

IMAGES Questa volta non stiamo parlan¬ 
do di un programma ma di un semplice in¬ 
sieme di immagini tutte in formato IFF 
create con il Deluxe Paint. 

SETALTERNATE Ecco come potete fon¬ 
dere due icone. Setalternate vi permette di 
fondere, appunto, due icone onde creare 
una prima immagina come icona primaria 
e cambiare, quindi, tale immagine nel mo¬ 
mento che viene selezionata. 

STARTERM Un altro programma di emula¬ 
zione terminale. Starterm supporta proto¬ 
collo Ascii e protocollo X-Modem. 

Fine seconda parte ■ 


63 




AMIGA CORNER 


ij 

~ Viaggio 

NEll ’AMIGADOS 


di ANDREA MINUTELLO 


Proseguiamo nel nostro viaggio tra i co¬ 
mandi che ci sono messi a disposizione 
dal DOS che, questa volta, non riguarda¬ 
no solo esclusivamente dei file 


Terza parte 


nuovi bit introdotti dalla ver¬ 
sione 1.3 del DOS, come già 
accennato sono: 

H : rende il file invisibile a 
LIST ed a DIR, ma solo usan¬ 
do la nuova SHELL Commodore fornita as¬ 
sieme airi. 3 

S : Indica che il file è uno script. 

Uno script è un particolare file che contiene 
una lista di comandi DOS da eseguire. 

Un esempio di script è il file "startup-se- 
quence" presente nella directory S del di¬ 
sco Workbench. 

Per eseguire uno script era necessario da¬ 
re: 

EXECUTE <nome script> 

mentre ora, settando il bit S è possibile ese¬ 
guirlo dando solamente il nome del file: 

<nome script» 

un po’ come succede in MS-DOS. 
Attenzione però perché tale caratteristica è 
attuabile solamente utilizzando la SHELL 
Commodore, altrimenti dovremo ugual¬ 
mente digitare EXECUTE prima del nome 
del nostro file script. 



P : indica che il file è “puro" e che quindi 
può essere reso residente in memoria con 
RESIDENT. 

Questo è un discorso un po’ lungo, che ver¬ 
rà trattato a parte più avanti. 

A : Il flag di archivio. 

Se avete settato questo bit, una successiva 
scrittura sul file ne causerà la cancellazio¬ 
ne, ad indicare che è avvenuta una modifi¬ 
ca al file. 

Anche PROTECT è cambiato ed è stato re¬ 
so un po’ più “amichevole". 

Infatti ora è possibile settare o cancellare 
un solo bit, senza per forza dover scrivere 
tutti gli altri. 

Riprendendo l’esempio di prima, volendo 
proteggere da cancellazione un file "data’’ 
basterà dare: 

PROTECT data d add 

cioè: “aggiungi il bit d al file data”. 

Mentre per poter di nuovo cancellare il file: 

PROTECT data d sub 
cioè: “togli il bit d". 


RENAME, RELABEl e DEIETE 

Abbiamo già visto come è possibile copiare 
un file da un disco ad un altro sia mante¬ 
nendo il nome originale del file, sia asse¬ 
gnandogli un altro nome, al momento della 
copia, specificandolo in COPY. Ma se vo¬ 
gliamo cambiare il nome al nostro file, che 
cosa dovremmo fare? 

Non è certo pensabile di ricopiare di nuovo 
il file con un altro nome, anche se la cosa è, 
come abbiamo già visto, fattibile. In casi co¬ 
me questi ci viene in aiuto il comando RE¬ 
NAME. Come è facilmente intuibile dal no¬ 
me, questo comando ci consente di cam¬ 
biare il nome al nostro file, senza per questo 
dover passare per il comando COPY. Un 
esempio pratico ci servirà per illustrarne il 
funzionamento. 


Supponiamo di avere un file chiamato "ta¬ 
bella" che si trova nella directory "dati" sul 
disco che abbiamo nel drive interno. Gli vo¬ 
gliamo cambiare nome, mantenendolo 
sempre nella stessa directory, chiamandolo 
"profilo”. Non dobbiamo far altro che: 

RENAME FROM dfO:dati/tabella AS 
dfO:dati/profilo 

La parola FROM posta subito dopo il RE¬ 
NAME può essere tranquillamente omessa, 
così come AS prima del nuovo nome del file. 
Se non vengono specificati sia FROM che 
AS, l’ordine con cui indichiamo i nomi è im¬ 
portante ed è il seguente: 

RENAME <vecchio> <nuovo> 

Se scambiate i due nomi, la cosa più facile 
che vi possa capitare è che il DOS non rie¬ 
sca a trovare il file che volete rinominare e vi 
segnali un errore di file non trovato. In casi 
peggiori, potreste addirittura cambiare il 
nome ad un file che non c’entra assoluta- 
mente niente. Utilizzando invece FROM e 
AS potremo addirittura invertire tale ordine. 

RENAME AS dfO:dati/profile FROM 
dfO:dati/tabella 

tanto per riprendere l'esempio precedente. 
Da notare il fatto che al posto di AS potrem¬ 
mo utilizzare TO, dal significato del tutto 
equivalente. Attenzione a non scegliere per 
il file, un nome che è già presente sulla stes¬ 
sa directory. Il DOS non vi segnalerà nes¬ 
sun errore, ma poi non potrete più distin¬ 
guere i due file anche se il DOS, in certi casi, 
potrà ancora farlo, vi ripeto che non sarete 
più in grado di riconoscere i file. 

Abbiamo precedentemente sottolineato il 
fatto che volevamo cambiare il nome ad un 
file, mantenendolo però nella stessa direc¬ 
tory. 

È possibile spostare un file da una directory 
all’altra tramite RENAME, senza dover pri- 


64 


LIST 10/89 




AMIGA CORNER 


ma copiare il file da una directory all’altra, 
sempre se ci sia spazio sufficiente, e poi 
cancellare il vecchio file. Con l’esempio di 
prima, volendo spostare il file “tabella”, dal¬ 
la directory “dati” alla directory “numeri”: 

RENAME dfQdati/tabella dfO : numeri / tabella 

Abbiamo volutamente lasciato inalterato il 
nome del file ma, volendo, poteva benissimo 
essere cambiato. Bisogna fare attenzione al 
fatto che non è possibile, con questo sistema, 
spostare un file da un device (dispositivo) ad 
un altro. Non è cioè possibile spostare il file 
"moto” dal disco “dfO:" alla RAM: 

RENAME dfO:moto ranrmoto 

In questo caso il DOS segnalerà un errore e 
non procederà nell’operazione. 

Operazione analoga a RENAME la svolge 
RELABEL, comando che ci consente di 
cambiare il nome associato ad un nostro 
disco. La sua sintassi è: 

RELABEL drive name 

dove per drive si intendono i drive da dfO: a 
df3: mentre name è il nuovo nome da attri¬ 
buire al disco. Un piccolo esempio è suffi¬ 
ciente per far comprendere questo sempli¬ 
ce comando. 

RELABEL dfl: pics 

Dopo aver digitato questo comando, il di¬ 
sco o volume, come vengono chiamati 
qualche volta dal DOS i dischetti, avrà il no¬ 
me "pics”. 

Se abbiamo un file che non ci serve più, il 
comando DELETE ci consentirà di cancel¬ 
larlo definitivamente dal disco. DELETE 
permette inoltre di cancellare una intera di¬ 
rectory con un solo comando. Qualche 
esempio: 

DELETE dfO:dati 

cancellerà il file "dati". 

DELETE dfOiprogs ALL 

Ora stiamo cancellando la directory 
“progs" ed il suffisso ALL è necessario in 
quanto stiamo cancellando un directory e 
non un singolo file. Se avessimo omesso 
ALL, il DOS ci avrebbe segnalato un errore 
di “directory non vuota”. L’unico'caso in 
cui possiamo non mettere ALL per cancel¬ 
lare una directory è quando essa è vuota, 


ossia non vi sono file al suo interno. 

Per poter cancellare più di un file alla volta, 
anche se questi non sono tutti nella stessa 
directory, non è necessario scrivere ad 
esempio 4 comandi DELETE per cancellare 
4 file, ma è sufficiente indicarli uno di segui¬ 
to all’altro, ognuno col proprio percorso 
(path). 

DELETE dfO:dati dfO:c/run 

Così facendo abbiamo cancellato il file 
“dati” presente nella ROOT directory ed il 
comando RUN (che vedremo successiva¬ 
mente) presente nella directory “c”. 

Sia che stiamo cancellando più file assie¬ 
me, come visto poco fa, sia che stiamo can¬ 
cellando una intera directory, vedremo sul 
monitor la lista dei file che man mano ven¬ 
gono cancellati. Se non vogliamo che il no¬ 
stro monitor si riempia di nomi di file è suffi¬ 
ciente aggiungere QUIET al comando: 

DELETE dfO:c ALL QUIET 

Ora abbiamo cancellato tutta la directory "c” 
senza però vedere tutti i nomi dei file cancellati. 
Al posto di QUIET, per brevità, possiamo met¬ 
tere Q, che è del tutto equivalente. 

Ora sappiamo come cancellare una intera 
directory, ma se volessimo cancellare solo 
alcuni file, ad esempio tutti i file che termi¬ 
nano per “.c”, come dovremmo fare? In no¬ 
stro aiuto ci vengono i caratteri Jolly o "wild 
card”, che abbiamo già visto la scorsa vol¬ 
ta. Quindi per cancellare tutti i file che fini¬ 
scono per “.c” presenti, ad esempio, nella 
directory "prg", non dovremo far altro che: 

DELETE dfO:prg/#c 

Al solito, per non vedere tutta la lista dei file 
cancellati, basterà aggiungere QUIET. 
L'unico problema è che se durante la can¬ 
cellazione di un file, qualcosa va storto ed il 
DOS non riesce a cancellare il file, l’opera¬ 
zione si arresterà senza cancellare i rima¬ 
nenti file. La versione 1.3 del DOS ha rime¬ 
diato a ciò ed ora, anche se un file non vie¬ 
ne cancellato, DELETE proseguirà a can¬ 
cellare tutti gli altri, fino alla fine. 


INFO 

Chissà quante volte avremmo voluto sape¬ 
re quanto spazio era rimasto sul disco, ma¬ 
gari per poterci mettere un altro piccolo file. 
Una via possibile per sapere quanto è pie¬ 
no un disco è rappresentata dalla barra 


che abbiamo nella finestra associata alla 
ROOT directory del nostro disco. Però per 
avere tale finestra è necessario caricare an¬ 
che il WorkBench e comunque si tratta pur 
sempre di una indicazione approssimativa 
che non ci da l’esatta misura di quanto 
spazio è ancora presente. In aiuto ci viene 
INFO, un comando che non necessita di al¬ 
cun parametro e ci fornisce una utile serie 
di dati su tutti i drive sia fisici (dfO:, dfl :, ecc) 
che logici (ram:, rad:, ecc) che abbiamo in¬ 
stallati. Le informazioni che ci vengono da¬ 
te sono: 

- capacità del disco espressa in Kilobyte 

- numero di blocchi usati 

- numero di blocchi liberi 

- percentuale di riempimento del disco 

- numero di errori incontrati 

- stato del disco, ossia se è o meno protetto 
dalla scrittura 

- il nome associato al disco presente in quel 
momento nel drive. 

Da notare che se in un drive non è presente 
alcun disco, l’indicazione delle informazio¬ 
ni, verrà sostituita dal messaggio “no disk 
present”. Nel caso in cui avessimo dato IN¬ 
FO proprio nel momento in cui il DOS lo sta 
esaminando, perché lo abbiamo appena 
inserito, apparirà la dicitura: “validating" 
sotto alla voce “status”. 

Il validating è un processo che il DOS attiva 
ogniqualvolta noi inseriamo un nuovo di¬ 
sco nel drive. Avrete di certo notato che 
quando inserite un disco, il led che segnala 
l'attività del drive si illumina ad indicare che 
il drive sta operando sul disco. Bene, quello 
è il momento in cui il DOS legge il nome del 
disco ed altre informazioni a lui necessarie 
e che vi vengono in parte mostrate dal co¬ 
mando INFO. 

Questo processo è in genere rapidissimo e 
non prende mai più di 2-3 secondi. Ma nel 
caso di dischi particolarmente “strani” o 
rovinati, il validating potrebbe anche richie¬ 
dere 15-20 secondi se non addirittura se¬ 
gnalare un errore, per avvisare del fatto che 
quel disco è illeggibile dal sistema. 

La nuova versione di INFO, presente nel 
DOS 1.3, permette di specificare un partico¬ 
lare device di cui vogliamo le informazioni 
che abbiamo visto prima. Così, ad esempio, 
se volessimo sapere quanto spazio ci è ri¬ 
masto sul disco che abbiamo inserito nel 
drive dfl:, non dovremo fare altro che forni¬ 
re il comando: 

INFO dfl: 

e ci verranno mostrate le sole informazioni 
riguardanti il disco presente nel drive 
esterno. ■ 
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di DANIELE CANONACO 


Calcolo e visualizzazione di funzioni ma¬ 
tematiche tridimensionali continue nella 
forma Z=f(X,Y) 


a visualizzazione per supera¬ 
ci avviene tracciando la fun¬ 
zione come insieme di trian¬ 
goli a partire dal punto più 
lontano rispetto all’osserva¬ 
tore. 

Il programma mette a disposizione vari me¬ 
nu accessibili per mezzo del mouse. 
Analizziamo le varie funzioni disponibili nel 
menu: 
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1 funzioni: Permette la scelta di una delle 
funzioni nell’elenco o la definizione di una 
nuova funzione. 

2) Passo: Definisce il passo di calcolo di una 
funzione. In questo modo si può testare ve¬ 
locemente una funzione prima di richieder¬ 
ne un calcolo preciso e dettagliato. 

3) Limiti: Definisce i limiti di calcolo di una 
funzione. Cioè la dimensione della parte di 
spazio intorno all’origine. 

4) Angolazione: Definisce gli angoli di visua¬ 
lizzazione di una funzione. Gli angoli rap¬ 
presentano la posizione dell’osservatore in 
coordinate sferiche e vanno ambedue da 0 
a 180 gradi poiché occorre definire metodi 
di tracciamento diversi ogni 90 gradi, più 
due metodi particolari per 90 e 270 gradi, 
utilizzando la tecnica descritta all’inizio. 
L’angolo THETA incide sul piano X,Y e PHI 
sull’asse Z. 

5) Distanza: Definisce la distanza della fun¬ 
zione dal piano di visualizzazione. La di¬ 
stanza RHO dall’osservatore rimane co¬ 
stante poiché una variazione eccessiva 
causa distorsioni nel tracciamento della 
funzione, mentre la distanza MHU dal pia- 
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10REM > $.3D5urfaces 

20REM Calcolo e visualizzazione di funzioni matematiche 
30REM tridimensionali continue nella forma Z*f(X,Y). 

40REM La visuaLizzazione per superfici avviene tracciando 
50REM la funzione come insieme di triangoli a partire dal 
60REM punto piu' lontano rispetto all'osservatore. 

70 

80M0DE 12 

90 OFF : OSCLI"pointer": PROCinit 
100 0NERR0R PROCerror 
11OREPERT 

120 COSE FNmenu(64,0) 0F 
130 WHEN 0: FS=FNchoice 

140 WHEN 1: PROCstep 

ISO WHEN 2: PROClimit 

160 WHEN 3: PROCcorner 

170 WHEN 4: PROCdistance 

180 WHEN 5: 0SCLI"FX112,0 n :0SCLI“FX113,0": PR0Cfndraw(FS,Step ) 

190 WHEN 6: INPUTTPB(64,26)"Cicli " ;C% 

200 PROCanimate<F$,Step,RBS<C*>> 

210 WHEN 8: IF RbsZ* THEN 

220 RIGHT8(Op t8(8))=CHR$(32): AbsZ*=FRLSE 

230 ELSE 

240 RIGHT$(Qpt*(B))=CHR$<128): RbsZ\=TRUE 

250 ENDIF 

260 WHEN10: PROCdemo 

270 WHEN12: «desktop 

280 ENDCRSE 

290UNTIL FALSE 

300 

310REM Permette la scelta di una delle funzioni nell'elenco o la 
320REM definizione di una nuova funzione. Un possibile miglioramento 
330REM al programma sarebbe la gestione di vari elenchi di funzioni 
340REM sotto forma di semplici file di stringhe 
350 

360DEF FNchoice: L0CRL nt,yt 

370 n%=DIM(Fnz$(),1> : C0L0UR0 

380 C0L0UR134 : PROCmouserec( 0,0, 62,11) 

390 PRINTTRBt 0,0) CHR$<150)♦STRING$<60,CHR$(144 > > +CHRS(151> 

400 F0R y%*0 TO n**1 
410 IF y*<*n* THEN 

420 PRINTTRB<0,y%+1)CHR$<146)+Fnz$(y%)*CHR$(146> 

430 ELSE 

440 PRINTTRB(0,y\*1)CHRS(146)+STRINGS(60," " )«CHR $(14 6) 

450 ENDIF 

460 NEXT: PRINTTRB(0,y\*1> CHR$(152>♦STRING*(60,CHRS(144>)♦ CHRJ(153) 
470 y%=1: PROCinvert(0,y*,FnzS<y%-1>,7,128) 

480 REPERT: PROCmouse 

490 IF YT*Oy\ RND YT%>0 RND YT*<9 THEN 

500 PROCinvert(0,y\,Fnz$(y*-1>,0,134): y*=YT% 

510 PROCinvert <0 , y*,Fnz$(y*-1>,7,128) 

520 ENDIF 

530 UNTIL B\*4 : REPERT: PROCmouse: UNTIL B%=0 

540 IF y%-1»n* THEN 

550 f*=FNinput(1,9,60) 

560 IF f$= ,,M f $ = F $ ELSE f S=LEFT*( f $ + STRING$(60 , " ">,60) 

570 =f$ 

580 ELSE 

590 = Fnz$ < yX- 1) 

600 ENDIF 
61OENDFN 
620 

630REM Definisce il passo di calcolo di una funzione. In questo modo 
640REM si può' testare velocemente una funzione prima di richiederne 
650REM un calcolo preciso e dettagliato. 

S60REM SELECT aumenta, RDJUST diminuisce, MENU conferma 
670 

680DEF PROCstep 

690 DSCLITX113,2" : OSCLI "F X 112,2 " 

700 CLG: PROCmouserec(0,0,63,31) 

710 REPERT: PROCmouse: PROCgrid<Step) 

720 PRINTTAB(0,0)"Step:. “ jStep ; " 

730 REPERT: PROCmouse: UNTIL B*<>0 

740 COSE B% 0F 

750 WHEN 4: IF Step<2 Step*Step*2 

760 WHEN 1: IF Step».25 Step=Step/2 

770 ENDCRSE 

780 UNTIL BX= 2 

790 OSCLI“FX113,0": OSCLI"FX112,0" 

800ENDPROC 

810 

820REM Definisce i limiti di calcolo di una funzione. Cioè* la 
830REM dimensione della parte di spazio intorno all'origine da 
840REM cosiderare che in questo caso e' sempre un cubo di lato 
850REM minimo 2 e lato massimo 20. 

860REM SELECT aumenta, RDJUST diminuisce, MENU conferma 
870 

880DEF PROClimit 

890 OSCLI ai FX 113,2 " : OSCLI "FX112,2" 

900 CLG: PROCmouserec<0,0,63,31) 

910 REPERT: PROCmouse: PROCaxis 

920 PRINTTRB(0,0)"X: ";Xbot ; "."; X top ;" Y: 

930 PRINT;Ybot;".";Y t op ; " Z: ";Zbot; "." ; Ztop ; " 

940 REPERT: PROCmouse: UNTIL B%<>0 


950 

CRSE B% QF 





960 

WHEN 4: IF 

Xtop <10 THEN 




970 

Xbot-*1: 

Xtop-»* 1 : Ybot-*1: 

Ytop* = 1 : 

Zbot-*1 : 

Ztop*=1 

380 

ENDIF 





990 

WHEN 1: IF 

Xtop > 1 THEN 




1000 

Xbot**1 : 

Xtop-* 1 : Ybot + = 1 : 

Ytop- = 1 : 

Zbot**1 : 

Ztop-=1 

1010 

ENDIF 





1020 

ENDCRSE 






1030 UNTIL B*=2 

1040 OSCLI"FX113,0": OSCLI"FXI12,0" 
1050ENDPROC 
1060 


1070REM Definisce gli angoli di visualizzazione di una funzione. 

1080REM Gli angoli rappresentano la posizione dell'osservatore 
1090REM in coordinate sferiche e vanno ambedue da 0 a 180 gradi 
1100REM poiché' occorre definire metodi di tracciamento diversi 
1110REM ogni 90 gradi, piu' due metodi particolari per 90 e 270 
1120REM gradi, utilizzando la tecnica descritta all'inizio. 

1130REM l'angolo THETR incide sul piano X,Y e PHI sul'asse Z. 

1140REM SELECT angolo THETfi, RDJUST angolo PHI, MENU conferma 
1150 

1160DEF PROCcorner 

1170 0SCLI"FX113,2": OSCLI"FX112,2“ 

1180 CLG: PROCmouserec(0,0,63,31) 

1190 REPERT: PROCmouse: PROCaxis 

1200 PRINTTRB(0,0 >"Theta: ";Theta;" Phi: ";Phi;“ 

1210 REPERÌ: PROCmouse: UNTIL B*<>0 

1220 CASE BX OF 

1230 WHEN 4: IF Tback* THEN 

1240 Theta-«5 : IF Theta<=0 Tback%=FPLSE 

1250 ELSE 

1260 Theta*»S: IF Theta>=i80 Tback\=TRUE 

1270 ENDIF 

1280 WHEN 1: IF Pback* THEN 

1290 Phi-=5: IF Phi<*0 Pback%«FRLSE 

1300 ELSE 

1310 Phi*=5: IF Phi»*l80 Pback%=TRUE 

1320 ENDIF 

1330 ENDCRSE 

1340 UNTIL B%=2 

1350 OSCLI " F X113,0 " : OSCLI“FX112,0 ” : PR0Cinfo<F$> 

1360ENDPROC 
1370 

13B0REM Definisce la distanza della funzione dal piano di visualizzazione. 
1390REM La distanza RHO dall'osservatore rimane costante poiché' una 
1400REM variazione eccessiva causa distorsioni nel tracciamento della 
1410REM funzione, mentre La distanza MHU dal piano di visualizzazione 
1420REM non porta alcun problema. 

1430REM SE.LECT aumenta, RDJUST diminuisce, MENU conferma 
1440 

1450DEF PROCdistance 

1460 OSCLI'FXI13,2”: OSCLI"FX112,2” 

1 4 70 CLG: PROCmouserec< 0,0,63,31) 

1480 REPERT: PROCmouse: PROCaxis 

1490 PRINTTRB(0,0)"Rho: ";Rho;" Mhu: "jMhu;" 

1500 REPERT: PROCmouse: UNTIL B*<>0 

1510 CRSE B* 0F 

1S20 WHEN 4: IF Mhu<40 Mhu**1 

1530 WHEN 1: IF MfeuMhu-=1 

1540 ENDCRSE 

1550 UNTIL B%=2 

1560 OSCLI”F X113,0": OSCLI"FX112,0": PROCinfo(FJ) 

1570ENDPROC 
1580 


1590REM Effettua una sorta di animazione sulla funzione corrente 
1600REM semplicemente scambiando in successione gli schermi 0 e 2. 
1610REM II tempo di animazione dipende dai parametri della funzione 
1620 

1630DEF PROCanimate(f$,step,count%): LOCfiL IX 
1640 FOR i%=1 T0 countt 

1650 IF Scr2* OSCLI "FX112,0" ELSE OSCLI' FX112,2" 

1660 CLG: Theta*=15: IF Theta>=180 Theta*0 
1670 PR0Cview(Theta, Phi,Rho,Mhu) 

1680 PROCfndrawlf$,step) 

1690 IF 5cr2\ THEN 

1700 OSCLI"FX113,0" : Scr2%=FRLSE 

1710 ELSE 

1720 OSCLI"FX113,2": Scr2%=TRUE 

1730 ENDIF 

1740 NEXT 

17 50ENDPROC 

1760 

17 7 ODE F PROCdemo 

1780 PROCviewl165, 75 ,40 ,20): PR0Cwindow<1,1,1,1 ) 

1790 PR0Canimate(Fnz*(6), .5,12) 

1 800 PR0Cview( 165,60,40,20) : PR0Cwindow<5, 5,5, 1 ) 

1810 PROCanimate(Fnz$<0>,1 ,3): PROCanimate(Fnz)<1 ) ,1 ,3 ) 

1820 PROCanima te<Fnz$<2) ,1,3): PROCanimatetFnzS(3 >, 1, 3> 

1830 PROCanimatet Fnz t < 4 ), .5,3): PROCanimate ( Fnz$<5 ), 1,3> 

1840ENDPROC 

1850 

1860REM Calcola il numero di punti necessari per La visuaLizzazione 
1870REM e chiama la procedura di calcolo prospettico testando 
1880REM l'angolo THETR, inoltre stabilisce il tempo necessario. 

1890 

1 9 0ODEF PR0Cfndraw(f$,step): LOCRL pX 
1910 p%=<(Xtop-Xbot)/step+1) 

1920 PROCgrid(step) : PRINTTRB(0 , 0 ) "Sto calcolando ";p\*p%;“ punti.” 
1930 IF Theta<90 THEN 

1940 TIME = 0 : PROCpersp0_90 < f$,step , p%> : Time*TIME / 100 

1950 ELSEIF Theta=90 THEN 

1960 TIME = 0 : PR0Cpersp90(f$,step,p% ): Time = TIME/100 
1970 ELSE 

1980 TIME=0: PR0Cpersp90_180 ( f$,step , p%): Tirne*TIME/I 00 
1990 ENDIF 
2000 ENDIF 

2010 ENDIF: PROCinfo<f$) 

2020ENDPROC 

2030 

2040REM Le tre procedure seguenti calcolano e visualizzano La 
2050REM prospettiva della funzione corrente per angolazioni differenti. 
2060REM L'algoritmo utilizzato memorizza i punti, calcolati nel doppio 
2070REM ciclo FOR con indice reale, e poi trasformati in pixel dalla 
2080REM procedura UIDE0, nella coppia di vettori X%<),Y%(). Quindi 
2090REM con un solo ciclo traccia la funzione passando i parametri 
2100REM opportuni alla procedura FNBOX che provvede al disegno tramite 
2110REM superfici. Da notare il parametro p% che rappresenta il numero 
2120REM di passi necessari al calcolo di un lato del cubo di cui sopra, 
2130REM e quindi l'offset tra un punto ed il successivo nei due vettori. 
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2140 

21 SODEF PROCpersp0_9 0(f$,step,p%) 


2160 

LOCRL X,Y,Z,xl,y1, i% ,maxV max%=p%*p% 

2170 

F0R X=Xbot TO Xtop 5TEP step 

2180 

FOR Y=Ybot T0 

Ytop STEP step 

2190 

Z=EURL(f$>: 

IF RbsZ% RND Z<0 Z=0 

2200 

x 1 = X : y 1 = Y : 

PROCvideoC x 1 ,y1,Z> 

2210 

X%(i%)=x1: 

Y%<i%>=y1: i%+=1 

2220 

NE X T Y , X 


2230 

FOR i%=1 TO max%-p% 

2240 

IF i%M0Dp% < > 0 

PROCfnbox(X%(i%-1),Y%(i% 

2250 

NEXT 


2260ENDPROC 


2270 



2280DEF PR0Cpersp90(f$,step,p%> 

2290 

LOCRL X , Y , Z,x1, 

y1,i%,maxV max%=p%*p%*p% 

2300 

FOR X=Xbot TO 0 

STEP step 

2310 

FOR Y = Ybot TO 

Ytop STEP step 

2320 

Z=EVRL(f$) : 

IF AbsZ% RND Z<0 Z=0 

2330 

xl=X: y1=Y: 

PROCvideo(xl,yl,Z) 

2340 

X%(i%)=x1: 

Y%(i%)=y1: i%+=1 

2350 

NEXT Y , X 


2360 

FOR X = X t op TO 0 

STEP -step 

2370 

FOR Y=YbOt T0 

Ytop STEP step 

2380 

Z = EVRL< f$) : 

IF RbsZ* RND Z<0 Z=0 

2390 

x 1 = X : y 1 = Y : 

PROCvideo(xl,y1,Z) 

2400 

X%(i%)=x1: 

Y*<i%>*y1: i%+ = 1 

2410 

NEXT Y,X 


2420 

FOR i%=1 T0 max 

%DIV2-p% 

2430 

IF i%MODp%<>0 

PROCfnbox(X%(i%-1),Y%(i% 

2440 

NEXT 


2450 

FOR i%=max%DIV2 

TO max%-p% 

2460 

IF i%MODp%<>0 

PR0Cfnbox< X%(i %-1 >, Y%<iV 

2470 

NEXT 


24 8 OENDPROC 


2490 



2500DEF PR0Cpersp90_1 

80(f$,step,p%) 

2510 

LOCRL X , Y,Z,x1, 

y1,i%,maxV max%=p%*p% 

2520 

FOR X=Xtop TO XbOt STEP -Step 

2530 

FOR Y = Ybot T0 

Ytop STEP step 

2540 

Z=EVAL(f$ ) : 

IF flbsZ* RND Z<0 Z=0 

2550 

x 1 * X : y 1 = Y : 

PROCvideo(xl,y1,Z) 

2560 

X%(i%)=x1: 

Y%(i%) = y1 : i% + = 1 

2570 

NEXT Y,X 


2580 

FOR i*=1 TO max%-p% 

2590 

IF i%MODp%<>0 

PROCfnbox< X%<i%-1> ,Y%<iV 

2600 

NEXT 



X%< i% + p%) , Y%( i% + p%) , X%(i%-1+p%) ,Y*<i%-1+p*> ) 


261OENDPROC 
2620 

2630REM Definisce Le variabili globali rappresentanti i limiti, 

2640REM il fattore di scala per la trasforinazione da coordinate 
2650REM cartesiane in pixel, ed il centro dello schermo in pixel. 

2660 

2670DEF PROCwindoui(x,y,z,s) 

2680 X bo t = -x: Ybot=-y: Zbot = -z: Xtop = x: Ytop = y: Ztop = z 
2690 FactX=1023/(Xtop-Xbot> : FactY=1023/(Ytop-Ybot> 

2700 MidX=512: MidY=512: Step=s 

271OENDPROC 

2720 

2730REM Definisce il punto di vista dell'osservatore in coordinate 
2740REM sferiche, che e' determinato dagli angoli THETR e PHI e dalla 
2750REM distanza RH0, mentre MHU rappresenta la distanza dell'oggetto 
2760REM dal piano di proiezione. 

2770 

2780DEF PR0Cview(th,ph,rh,mh) 

2790 Theta=th: Phi=ph: Rho=rh: Mhu=mh 
2800 SinTH=SIN(RRD(th)): CosTH=C0S(RRD(th>) 

2810 SinPH=SIN(RRD(ph)): CosPH=C0S(RRD(ph)) 

2820ENDPROC 

2830 

2840REM Effettua la trasformazione da coordinate cartesiane 3D in pixel 
2850REM Da notare il diverso uso di RHO e MHU, che portano ad una vera 
2860REM e propria distorsione del disegno per RHO troppo piccolo. 

2870 

288ODEF PR0Cvideo(RETURN x,RETURN y,z>: LOCRL xe,ye,ze 
2890 xe=-x*SinTH+y*CosTH 

2900 ye=-x*CosTH*CosPH-y*SinTH*CosPH+z*SinPH 
2910 ze=-x*SinPH*CosTH-y*SinPH*SinTH-z*CosPH+Rho 
2920 IF ze = 0 THEN ze=Ó *-0000000001 
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2930 x=INT<FactX*xe/ze*Mhu*.5+MidX) 

2940 y=INT(FactY*ye/ze*Mhu♦.5+MidY) 

2 950ENDPROC 
2960 

297ODEF PROCfnbox C Xl%,y1*,x2%,y2%,x3%,y3%,x4%,y4%) 

2980 GCOL4: MOVE x1*,y1*: MOVE x2%,y2%: PLOT 85,x3%,y3% 

2990 MOVE xHj y1% : MOVE x3%,y3%: PLOT 85,x4%,y4%: GC0L7 

3000 LINE x1%,y1%,x2%,y2%: DRfìW x3%,y3%: DRRW x4%,y4%: DRRW x1%,y1% 

3 010 ENDPROC 
3020 

303ODEF PROC Line < x1,y1,z1,x2,y2,z2,c%) 

3040 PROCvideo<x1,y1,z1): PROCvideo<x2 , y2 , z2 ) 

3050 GCOLc%: LINE Xl,y1,x2,y2 

3060ENDPROC 

3070 

3080DEF PROCgrid(step): LOCRL i: CLG 
3090 FOR i=Xbot-2 TO Xtop+2 STEP step 
3100 PROCIine(i,Ybot-2,0,i,Ytop+2,0,1 ) 

3110 NEXT 

3120 FOR i=Ybot-2 TO Ytop*2 STEP step 


3130 PROCline(Xbot-2,1,0,Xtop+2,i,0,1) 

3140 NEXT 
3150ENDPROC 
3160 

317ODEF PROCaxis 

3180 CLG: PROCwindow<Xtop , Yt op,Z t op,S tep ) 

3190 PROCview(Theta , Phi,Rho,Mhu) : VDU5 

3200 PR0Cline<Xbot,0,0,Xtop,0,0,1> : GCOL3:PRINT"X 1 

3210 PROCLine(0,Ybot, 0,0,Ytop,0,1): GC0L3:PRINT "Y 

3220 PROClineCO ,0 ,Zbot ,0,0,Ztop, 1>: GCOL3 : PRINT "Z 

3230ENDPROC 

3240 

3250DEF PROC info(f $) 

3260 C0L0UR7: C0L0UR132: PRINTTRB ( 0 , 0 ) "Z 
PRINTTRB< 64,16)"Theta:"Theta TRB(64 
PRINTTRB < 64 ; 18) "Rho 
PRINTTRB< 64,21>"Min 
PRINTTRB(64,24 ) "Tempo 


VDU4: OFF 


3270 

3280 

3290 

3300 


” ; f $ 

. 17) "Phi 
TRB(64, 19 >"Mhu 
TRBC64,22)"Max 
TRB(64,26)"CÌclo 


"Phi 
"Mhu 
" X top 
"i% 


"Rho 
" Xbot 
"Time 

331OENDPROC 
3320 

3330REM Le due procedure seguenti si occupano di disegnare il menu 
3340REM e di ritornare l'opzione scelta clickando su SELECT. 

3350 

3 36 ODE F PROCmenu(x^,y%,xl%,yl%) : LOCRL i% 

3370 COLOUR134: C0LOUR0 

PRINTTRB ( x%,y%) CHR$(1 50 > + S TRING$ < xl %- 2 , CHR$ ( 144)>+CHR$(151> 

FOR i% = 0 TO DIM(Opt$( ) , 1 ) 

IF Opt$<Ì%)=" M THEN 

PRINTTRB<x%,i1 ) CHR $ ( 147 ) ♦STRINGI (1 4 , CHR$ ( 144))+CHR$<148) 
ELSE 

PRINTTRB(x%,i%+1 ) CHR$ ( 146)♦Opt$ ( i% ) + CHR $ ( 146 ) 

ENDIF 

NEXT: y%+=yl%-1 

PRINTTRB ( x%,y%) CHR$<15 2 > ♦ S TRING$ ( xl %- 2,CHR $(144 ))+CHR$<153) 


3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
34 7 0ENDPROC 
3480 

34SODEF FNmenuC x%,y%) 
3500 
3510 
3520 


LOCRL i%,j* 

PROCmenu(x%,y%,16 , 15) 

PROCmouserec (x%,y%,16,15): y%* = 1 
REPERT: PROCmouse 

IF YT %<>y% RND YT%>0 RND YT%<14 THEN 
PROCinvert ( x% , y %, Op t $ < y %- 1 ),0, 134 > 
PROCinvert ( x% , y% ,Op t$ ( y%- 1 > , 7 , 128) 
ENDIF 

UNTIL B%=4 
REPERT : PROCmouse 
= y%- 1 


UNTIL B%=0 


3530 

3540 PROCinvert ( x%,y%, Opt$<y*-1 ),0, 134 >: y*=YT% 

3550 
3560 
3570 
3580 
3590 
3600ENDFN 
3610 

3620REM Le due procedure seguenti si occupano di settare lo spazio 
3630REM d'azione del mouse e di convertirne le coordinate da pixel 
3640REM a coordinate testo, cioè' da <0 , 0 , 1279,1023> a <0,0,79,31}. 
3650 

366ODEF PROCmouserec(x%,y*,xl%,yl%) 

3670 x%=x%*16: y%=1023-y%*32: xl%=xl%*16: yl%=yl%*32 

3680 MOUSE RECTRNGLE x% , y%-y l%+4,xl%-2,yl%-4 
3690ENDPR0C 
3700 

3 71 ODEF PROCmouse 

3720 MOUSE X%,Y%,B%: XT%=X%DIV32: YT%=31 - Y%DIV32 



no di visualizzazione non porta alcun pro¬ 
blema. 

6) Tracciamento: Calcola i punti necessari 
per la visualizzazione e, a seconda dell’an¬ 
golazione chiama la relativa funzione di 
calcolo e visualizzazione della funzione. 

7) Animazione: Effettua una sorta di anima¬ 
zione sulla funzione corrente semplicemen¬ 
te scambiando in successione gli schermi 0 
e 2. Il tempo di animazione dipende dai pa¬ 
rametri della funzione. 

8) Dimostrativo: Esegue l’animazione delle 
funzioni una dopo l’altra. 

9) Desktop: Torna al Desktop. 

Funzioni preimpostate nel programma: 

1) SIN(X) + SIN(Y) 

2) SQR(ABS(X))*SQR(ABS(Y)) 

3) COS(SQR(X*X + Y*Y))*2 

4) EXP(6-SQR(X*X + Y*Y))/50 

5) COS(X*Y)*SIN(X*Y) 

6) SIN(SQR(ABS (X))) * COS (SQR(ABS (Y))) *4 

7) SIN (SOR (X*X + Y*Y) * COS (X*X + Y*Y)) * 2 

Tutte queste funzioni possono anche esse¬ 
re modificate con altre funzioni di vostro 
gusto che riterrete più interessanti. 
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3730ENDPROC 

3 740 

3750REM Tutte Le procedure rimanenti servono da supporto e 
3760REM iniziaiizzazione alle altre. Da notare nella INIT il 
3770REM dimensionamento dei vettori X%< ) e Y%<>, che deve essere 
3780REM sempre uguale ai n,umero di passi massimo elevato al 
3790REM quadrato ♦ il numero di passi massimo stesso. 

3800REM Piu' difficile a dirsi che a farsi; comunque il numero di 
3810REM di passi massimo non e' altro che il lato massimo del 
3820REM famoso cubo / il passo di calcolo minimo *1. Chiaro no? 

3830 

3840DEF FNinput(x%,y%, 1 %): LOCAL c%,xp%,n$ 

3850 COLOUR128 : PRINTTABCx%; y%) SPC(1%): C0L0UR7: xp% = x% 

3860REPERT 

3870 PRINTTRB(x%,y%)n$;SPC(L%-LEN(n$>); : C%=GET 
3880 CRSE c% OF 
3890 WHEN 13: =n$ 

3900 WHEN127: IF xp%>x% xp%-=1: n$=LEFT$(n$) 

3910 DTHERWISE: IF LEN(n$)<l% THEN 

3920 n $ + = CHR$(c%): IF xp%<x%+l% xp%*=1 

3930 ENDIF 

3940 ENDCRSE 

3950UNTIL FRLSE 

3960 

397ODEF PROCinvert <x%,y%,opt$,cf%,cb%> 

3980 COLOURc f% : COLOURcb*: PRINTTRB<x% +1 , y%) ; opt$ ; 

3990ENDPROC 

4000 

401 ODEF PROCerror: LOCflL s$ 

4020 0SCLI"FX112,0" : OSCLI"FX113,0" : VDU7 

4030 s$ = REP0RT $+ " in "+STR$(ERL): C0L0UR3: C0L0UR132 

4040 PRINTTRB(0,0)s$+STRING$(60-LEN(s$) ; " ") 

4 050ENDPROC 
4060 

4070REM Ps. Questa procedura e' stata scritta utilizzando un programma 
4080REM commerciale di nome ArcImEd che serve a trasformare in Linee 
4090REM di programma ciò' che si disegna sul video; quindi non vale 
4100REM la pena anchilosarsi le dita per digitarla. 

4110 

4120DEF PROC title : PROCgrid(l) 

4130 GC0L 0 ; 6 : LINE 1 70,760 ; 268 ; 760 :DRAW 310,712:DRAW 314,640 
4140 DRRW 2 78,588:DRAW 204,580:DRAW 272,568 :DRflW 306,512 
4150 DRRW 3 04,432: DRAW 238,404:DRAW 1 5 4,4 0 4 : DRflUI 154,440 
DRRU) 222,440 :DRflUI 270,468:DRAW 272,512:DRAW 240,540 
DRRW 174,548:DRAW 176,608:DRAW 254,628:DRAW 274,660 
DRRW 2 70,704:DRAW 244,724 :DRAW 172,720 :DRAW 172,760 
PLOT 141 ,276,620:MOVE 344,404:DRRW 344,764:DRflW 422,764 
DRRW 4 78,704:DRAW 498,592 :DRRW .480,484 :DRAW 422,404 
DRRW 344,404:LINE 380,448,406,448 :DRAW 442,504:DRRW 458,584 
DRRW 448,680:DRAW 410,724:DRAW 378,724:DRAW 378,448:PL0T 141,366,600 
GCOL 0,4 : LINE 270,760,328,716 :DRRW 334,636:DRAW 292,580 
DRRW 266,572: LINE 2 7 0,5 7 2,3 2 2,5 1 2 : DRAW 320,420:DRRW 242,4-04 
LINE 174,716,198,696:DRRW 266,700:LINE 178,544,200,528 
DRRW 2 54,524:LINE 424,764 , 496,708 :DRAW 520,588:DRAW 498,468 
DRRW 4 26,404 : LINE 380,724,400,696 :DRAW 400,448 
LINE 400,696,434,696 : LINE 180,716,198,700 :DRAW 272,696 
LINE 276,756,328,720 :DRRW 338,636:DRAW 296,580 
DRRW 266,572 : LINE 282,560,318,512 :DRAW 318,428 
DRAW 248,400 : LINE 380,720,400,688 : LINE 404,692,438,692 
LINE 404,692,404,452:LINE 432,760,498,708 :DRAW 524,588 
DRRW 502,464:DRAW 428,404:LINE 190,712,254 , 712 :DRRW 198,704 
DRRW 258,704:LINE 284 , 748,322,712 :DRAW 328,644:DRRW 298,592 
DRRW 264,576:DRAW 246,580:DRRW 284,584:DRAW 322,640 
DRRW 316,712:LINE 290,540,314,512 :DRAW 312,440 
DRRW 308,424 : LINE 192,532,242,528 :DRAW 198,536 
DRRW 238,536 : LINE 216,716,244 , 716 :LINE 384,708,384,456 
LINE 388,456,388,700:LINE 394,608,394,456 : LINE 394,716,408,712 
DRRW 422,700:DRAW 404,700:DRAW 398,708:DRAW 408,704 
LINE 446,748,488,704:DRRW 512,588:DRAW 492,472:DRRW 452,436 
DRRW 4 86,476:DRAW ^06,588 :DRRW 486,704 

GCOL 0,3 :LINE 144,68 é ,1 18,696 :DRAW 98,680:DRAW 104,656 
DRAW 1 34,64 8 :DRAW 146,628:DRAW 138,600:DRAW 108,596 
DRRW 86,612:DRRW 110,600:DRAW 134,608:DRAW 142,628 
DRRW 130,644:DRAW 108,648:DRRW 98,664:DRRW 96,680 
DRRW 112,696:DRAW 150,688:LINE 168,676,168,604 
DRRW 180,584:DRAW 202,580:DRAW 218,596:DRAW 218,660 
DRRW 214,596:DRAW 198,584:DRAW 182,580:DRAW 170,596 


4160 
4 170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4300 
4390 
4400 
44 10 
4420 
4430 
44 40 
4450 
4460 
44 70 
4480 
4490 





fustini 

P»sso 

du 




l Pjsilivo 
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DRflW 172,672:LINE 230,576,232,660 :DRRW 266,660 :DRAW 280,632 

DRAW 264, 608 :DRflW 238,620 :DRAW 270,572:DRRW 244,616:DRAW 262,616 

DRAW 276,636:DRRW 264,656:DRAW 236,656 :DRRW 234,572 

LINE 294,556,292,648:DRAW 338,644:LINE 340,648,294,644 

DRRW 296,556:LINE 294,604,326,604 : LINE 300,600,322,600 

LINE 340,544,376,636:DRRW 412,536:DRAW 374,628:DRRW 344,544 

LINE 356,584,394,584 : LINE 358,580,396,580 : LINE 4 7 0,604,472,596 

DRRW 456,616:DRRW 428,600:DRAW 422,552:DRRW 436,520:DRAW 456,516 

DRflW 474,536 :DRflW 450,520:DRAW 438,524:DRRW 424,556 

DRRW 432,596:DRRW 456,612:DRAW 472,604:LINE 494,588,494,500 

DRflW 538,500 : LINE 540,504,498,504 :DRRW 498,592:DRAW 544,592 

LINE 542,588,502,588 : LINE 502,552,532,552 :LINE 502,548,530,548 

LINE 610,560,604,580:DRRW 578,584:DRAW 562,564:DRAW 564,536 

DRRW 596,524 :DRflW 612,500:DRAW 608,472:DRAW 582,464 

DRRW 558,476:DRRW 586,468:DRAW 606,480:DRRW 610,500 

DRflW 596,520 :DRRW 564,532:DRAW 558,564:DRAW 576,584 

DRflW 604,584:DRflW 614,560:LINE 276,632,262,612 :DRAW 234,616 

DRflW 236,580 :LINE 292,600,292,556 : LINE 342,552,372,632 

DRflW 412,540:LINE 234,660,230,612 : LINE 496,592,496,504 

LINE 468,604,456,608:DRAW 426,596:DRAW 418,556:DRAW 434,524 

DRflW 4 56,524 :LINE 410,532,376,632 :LINE 216,660,216,632 

LINE 172,632,174,600:DRflW 184,584 


4760 

OSCLI"FX112,2": 

4 7 70 

OSCLI 

" F X112,0 " : 

4 780 

UDU23 

,144,0,0,0, 

4790 

VDU23 

,147,24,24, 

4800 

VDU23 

,150,0,0,0, 

48 10 

VDU23 

,152,24,24, 

4820 

MinStep =.25 : Max 

4830 

MaxDim%=PointV 2 

4840 

Se r2% 

=TRUE: Pbac 

4850 

T ime = 

0: F$="SIN( 

4860 

READ 

d%\ DIM Opt 

4870 

READ 

d%: DIM Fnz 

4880 

READ 

f $ : Fnz$(i% 

4890 

PROCwindow(5,5,5 

4 900ENDPROC 


4910 



4 920DAT A13 , 

“Funzioni 

4930 

DATA 

''flngol azion 

4940 

DATA 

"Animazione 

4950 

DATA 

"Dimostrati 

4 960DATA 8, 

"SIN(X >+SIN 

4970 

DATA 

"C0S(SQR(X* 

4980 

DATA 

"C0S(X*Y)*S 

4990 

DATA 

"SIN(SQR(X* 

> *SP00L 



VDU26: CLS: 05CLI"aLphabet Latini" 
255,0,0,0,0:VDU23,146,24,24,24,24,24,24,24,24 


Point%=MaxLimit/MinStep+1 
•IM X%(MaxDim%),Y%(MaxDim% 
TbackVFALSE : AbsZ%=FflLSE 
+STRINGS(47.” "): RESTORE 


1 ) : FOR i%= 0 TO d*-1 : 
1 ): FOR i%=0 TO d%- 1 
STRINGS <60 -LEN(f$) ," 
PROCview( 30,60,40,20) 


READ Opt$( i%) : NE X T 

): NE X T 
PROCtitle 


,'Passo "/'Limiti 

/Distanza "/'Tracciamento 

»Z Pos iti vo •• •••• 

,”","Desktop 

"SQR < flBS(X))*SQR(flBS(Y))" 
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Med Screen Editor 


di FRANCESCO DURANTI 

Uno screen editor nato per gli MSX 2 che 
lavora in screen 0 con quattro colori , mol¬ 
to veloce e versatile nella versione 1.03 


edere ogni tanto un pro¬ 
gramma che funzioni bene e 
senza problemi è una conso¬ 
lazione ma questo è dovuto 
soprattutto al fatto che il pro¬ 
gramma in questione è nato per girare su 
un certo sistema e quindi ne sfrutta a pieno, 
o quasi, le capacità. 

Questo è il caso del MED, uno screen editor 
nato per gli MSX 2 che lavora in screen 0 
con 4 colori (2 colori normali+ 2 colori in¬ 
verse) molto veloce e versatile che può ge¬ 
stire file di qualsiasi lunghezza senza nes¬ 
suna difficoltà. 

La cosa che mi ha stupito di più è che nel 
programma manca una indicazione anche 
minima su chi lo abbia fatto o su chi lo di¬ 
stribuisca. 

10 stesso ho dovuto faticare molto per venir¬ 
ne in possesso (devo ringraziare in tal sen¬ 
so il Dr. Enzo Fina mio carissimo amico e 
Presidente del FreeSoft Club di Roma) ma 
ne è valsa la pena visto che è un editor fa¬ 
voloso e che non ha limiti di memoria come 
accade con molti altri programmi di questo 
genere per MSX dal momento che lavora di¬ 
rettamente sul disco come fanno altri pro¬ 
grammi quali il Wordstar ma senza acce¬ 
dervi continuamente e rendendo quindi le 
operazioni molto veloci. 

11 MED consiste in un solo file di 35Kbyte in 
cui si trova sia il programma che l’help in¬ 
terno; per vederlo girare basta caricarlo su 
un MSX 2 con disk drive. 

Fino a quando non mi è capitato tra le mani 
questo editor usavo o il buonissimo ED80 
della HISOFT (derivato dal CP/M 2.2) o lo 
SCED anch’esso di casa anonima (proba¬ 
bilmente scritto in ’C'). 

L’ED80 ha moltissime opzioni, è pienamen¬ 
te compatibile con il Wordstar (anche il 4.0 


dell'MS-DOS) ed occupa appena 10 Kbyte 
(compreso l’help) ma le sue capacità sono 
enormemente sminuite dal fatto che non 
può gestire file di più lunghi di 43 Kbyte par¬ 
tendo con il tasto CTRL premuto dopo il re¬ 
set (elimina il secondo drive o i drive simula¬ 
ti) e che lo scrolling è lento e molto carente. 
Lo SCED funziona egregiamente infatti ha 
un bellissimo scrolling molto veloce, ma è 
molto complicato e lento da usare per il fat¬ 
to che ogni opzione vuole una conferma ed 
inoltre per editare un altro file si deve uscire 
e ricaricarlo, non può gestire più di 35 Kbyte 
e può leggere solo file che abbiano lun¬ 
ghezza multipla di 128 byte (128 by¬ 
te = record del CP/M usato da varie funzio- 
ni). 

Passiamo ora al MED che ha uno scrolling 
da fare invidia, è velocissimo nei movimenti 
sullo schermo, facilissimo da usare, può ge¬ 
stire file di qualunque lunghezza, si può 
passare da un file ad un altro e si possono 
usare i caratteri con codice ASCII maggiore 
di 127; l’unico inconveniente sta nel fatto 
che non può gestire più di 159 colonne su 
di una linea (sempre se ci arrivate) e che 
trasforma tutti i TAB del file che legge in 
semplici spazi. 

Appena lanciato il programma vi chiederà il 
nome del file da editare. 

Se il file esiste vi chiederà di immettere il no¬ 
me del file dove salvare le modifiche (o EN- 
TER per salvare le modifiche sullo stesso fi¬ 
le) altrimenti entrerete in modo EDIT. 

A questo punto vi ritroverete in uno scher¬ 
mo così suddiviso in 3 o 4 parti a seconda 
se si sta editando normalmente o in modo 
HELP (con tutte le opzioni commentate): 


NORMAI MODE 

Lo schermo è diviso in tre parti: 

1 (Informazioni editing: è formato dalle pri¬ 
me 2 linee di cui la prima con colori alterna¬ 
tivi (bianco su blu) e la seconda normali 
(verde su nero) e serve da separatore. 

2)Schermo di edit: è formato dalle sotto¬ 
stanti 20 linee ed è l’area in cui si trova una 
parte del testo da editare. 


A seconda dei colori possiamo riconoscere 
se il testo è normale o è un blocco; in que¬ 
st’ultimo caso il blocco risulterà in colori al¬ 
ternativi (bianco su blu) altrimenti normali 
(nero su verde). 

3)Piccolo help: è formato dalle ultime 2 li¬ 
nee dello schermo di cui la penultima è un 
separatore con colori normali e l'ultima, in 
colori alternativi, contiene i nomi dei co¬ 
mandi attivabili con i tasti funzione. 


HELP MODE 

Lo schermo è diviso in quattro parti: 

1) lnformazioni editing: è formato dalle pri¬ 
me 2 linee di cui la prima con colori alterna¬ 
tivi (bianco su blu) e la seconda normali 
(verde su nero) e serve da separatore. 

2) Schermo di help: è formato dalle 10 linee 
sottostanti e è l’area in cui sono descritti i 
comandi. 

È in colori alternativi e l'ultima linea, in colo¬ 
ri normali, è funziona da separatore. 

3) Schermo di edit: è formato dalle sotto¬ 
stanti 10 linee ed è l’area in cui si trova una 
parte del testo da editare. 

A seconda dei colori possiamo riconoscere 
se il testo è normale o è un blocco; in que¬ 
st'ultimo caso il blocco risulterà in colori al¬ 
ternativi (bianco su blu) altrimenti normali 
(nero su verde). 

4) Piccolo help: è formato dalle ultime 2 li¬ 
nee dello schermo di cui la penultima è un 
separatore con colori normali e l’ultima, in 
colori alternativi, contiene i nomi dei co¬ 
mandi attivabili con i tasti funzione. 

Per passare dal NORMAL MODE all’HELP 
MODE e viceversa basta premere, in qual¬ 
siasi momento, il tasto SELECT. 

Le informazioni di editing sono: 

EDITING = nomefile: File che si sta editando 
(se specificato è il new file). 

TAB 4: Indica il passo del TAB cioè fino a 
quale colonna si deve andare ogni volta 
che si preme TAB (se il passo è 4 ogni TAB 
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inserirà degli spazi fino ad arrivare al pros¬ 
simo numero di colonna multiplo di 4). 
INSERT ON (/OFF): Indica se il modo inseri¬ 
mento è abilitato (ON) o disabilitato (OFF). 
LINE 15: Indica la linea su cui ci troviamo. 
COL 34: Indica la colonna su cui ci trovia¬ 
mo. 


TASTI DI CONTROLIO 

Per editare il vostro testo potrete usare i se¬ 
guenti comandi: 

1) Tasti Cursore: Movimento orizzontale e 
verticale del cursore sulle linee e sulle co¬ 
lonne con relativo scroll. 

2) lnsert: Inserisce/disinserisce modo inseri¬ 
mento. 

3) Del: Cancella il carattere sotto il cursore. 

4) BS: Cancella il carattere alla sinistra del 
cursore.. 


DESCRIZIONE DEI 
COMANDI DEL MED 

Premendo i tasti funzione vengono attivati i 
rispettivi comandi visualizzati sull’ultima li¬ 
nea; se vi sono altre opzioni, queste com¬ 
paiono in questa area e vengono attivate 
con l’iniziale del comando a meno che non 
siano specificati dei tasti come ad esempio: 
-> = cursore destro 
<- = cursore sinistro 
DEL = Delete 
BS = Backspace 

FI (Next Page): Scrolla il testo alla prossi¬ 
ma pagina. 

F2 (Line): Comandi relativi alla linea: 

->: Va alla fine della linea. 

<-: Va all’inizio della linea. 

DEL: Cancella la linea. 

F3 (Word): Comandi relativi alle parole: 

->: Va alla parola sulla destra del cursore. 
<-: Va alla parola sulla sinistra del cursore. 
DEL: Cancella la parola alla destra del cur¬ 
sore. 

BS: Cancella la parola alla sinistra del cur¬ 
sore. 

F4 (Command): Comandi vari relativi al¬ 
l’editing: 

F: Cerca una parola nel file. Viene chiesta 
la parola da cercare dopodiché si può sce¬ 
gliere il tipo di ricerca (MATCH = solo paro¬ 
la immessa; IGNORE = ignora maiusco¬ 
lo/minuscolo nella ricerca) con il tasto FI e, 
con il tasto F2 la direzione della ricerca 
(FORWARD = avanti; BACKWARD = in¬ 
dietro). 


Per iniziare la ricerca premere ENTER. 

S: Esegue delle sostituisce delle parole nel 
file. Vengono richieste le due parole ed in 
seguito possono essere cambiati alcuni pa¬ 
rametri come MATCH /IGNORE con il tasto 
FI, FORWARD/BACKWARD con il tasto F2 
ed il tipo di sostituzione: ONE = 1 parola; 
SAME = qualche parola (viene richiesto in 
input se la parola trovata deve essere sosti¬ 
tuita); ALL = tutte le parole. 

Per iniziare la sostituzione premere ENTER. 
A: Ripete l’ultimo comando F o R. 

T: Cambia il passo del TAB. Viene richiesto 
un numero compreso tra 1 e 9. 

G: Va ad una certa posizione del testo: 
1-4: Va ad una posizione memorizzata. 

T: Va all’inizio del file in memoria. 

B: Va alla fine del file in memoria. 

S: Va all’inizio del blocco marcato. 

E: Va alla fine del blocco marcato. 

P: Ritorna alla posizione precedente. 

M: Memorizza una posizione del testo: 

1-4: Può memorizzare 4 posizioni. 

S: Salva il file sul disco: 

C: Salva il file in memoria e continua. 

N: Salva il file in memoria e ne edita un al¬ 
tro. 

X: Salva il file in memoria ed esce dal pro¬ 
gramma. 

Q: Esce dal programma. 

Dopo aver selezionato questa opzione il 
programma chiede se si è sicuri di voler ab¬ 
bandonare il programma con la conse¬ 
guente perdita dei dati in edit se non prece¬ 
dentemente salvati. 

F5 (Block): Comandi relativi alla gestione 
dei blocchi (i blocchi sono indicati dai colo¬ 
ri alternativi): 

S: Segna l’inizio di un blocco. 


E: Segna la fine di un blocco. 

M: Muove il blocco (lo copia e cancella 
quello vecchio) alla posizione del cursore. 
C: Copia il blocco alla posizione del curso¬ 
re. 

D: Cancella il blocco segnato. 

R: Legge un blocco dal disco e lo inserisce 
in memoria alla posizione in cui si trova il 
cursore. Viene richiesto il nome del file da 
leggere. 

W: Scrive il blocco segnato sul disco sul di¬ 
sco. Viene richiesto il nome del file su cui 
scrivere. 

H: Cancella inizio e fine del blocco corren¬ 
temente marcato. 

F6 (Previous Page): Scrolla il testo alla pre¬ 
cedente pagina. 

In ogni momento è possibile lasciare un 
menu di opzioni con la sola pressione del 
tasto di ESCAPE. 

Quando viene generato un errore lo sfondo 
dei caratteri con colori alternativi cambia 
da blu a rosso ed il programma aspetta la 
pressione del tasto di ESCAPE. 

Una piccola dritta proveniente direttamente 
da Maurizio Mauri che ringrazio e saluto vi¬ 
vamente: invece di usare i tasti funzione per 
selezionare le varie opzioni si può premere 
il tasto CTRL insieme all'iniziale del coman¬ 
do e cioè 

FI = N ‘N’ext page 
F2 = L ’L’ine 
F3 = W 'W’ord 
F4 = C ’C’ommand 
F5 = B ’B’lock 

F6 = P ’P'revious page ■ 
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ZASM ISO 

Macro Assembler 


di FRANCESCO DURANTI 


Potente e completo assemblatore per Z-80 
con sistema operativo MSX-DOS o CP/M 
di pubblico dominio 


ASM è un Macro Assembler 
per il set di istruzioni dello 
Z80. 

Produce file in formato .HEX 
o .REL (formato standard Mi¬ 
crosoft) che potranno essere linkati con 
moltissimi programmi tra cui il LINK 80 sem¬ 
pre della Microsoft. 

Insieme all’assembler vi è anche il program¬ 
ma per creare file .COM partendo da file 
HEX quindi il programma può considerarsi 
completo a tutti gli effetti. 

Per facilitare la comprensione del program¬ 
ma verranno fatti dei riferimenti ad altri as¬ 
semblatori. 

Le caratteristiche dello ZASM sono: 

- Condizioni di assembler (IF/ELSE/ENDIF) 
nidificate fino ad otto livelli. 

- Supporto delle Macro Librerie. 

- Le macro possono includere REPT, IRP e 
IRPC. 

Possono essere nidificate fino ad otto livelli. 

- Inclusione dei file nidificata fino a quattro 
livelli. 

Si possono includere dei file sia per il primo 
passo dell’assembler che per entrambi. 

- Fino a quindici blocchi in comune (Com¬ 
mon block). 

- Ricerca delle librerie. 

- Gli identificatori (label) possono includere 
i caratteri $, (a), — e ?. 


- Il nome degli identificatori deve iniziare 
con una lettera o uno dei caratteri speciali 
visti prima e può contenere anche dei nu¬ 
meri. 

- Solo i primi otto caratteri del nome del¬ 
l’identificatore saranno considerati signifi¬ 
cativi ma solo sette verranno salvati nel file 
.REL e passati al linker. 

Alcuni link (come il LINK 80 ad esempio) 
considerano significativi solo i primi sei ca¬ 
ratteri quindi se questi sono uguali gli iden¬ 
tificatori vengono considerati uguali. 


LINEA DI COMANDO 

Il file sorgente deve avere l’estenzione ,Z80 
per essere trovato dallo ZASM. 

La linea di comando deve avere la forma: 

ZASM PROG.sol ARG1 ARG2 ... 

dove sol significa: 
s- Drive per il file sorgente. 

Deve essere il nome di un drive (A-H). 
o- Drive per il file destinazione (.HEX o 
.REL). 

Può essere: 

Z= Nessun output. 

A-H = Drive per l’output. 

I- Drive per il file di referenze (.PRN). 

Può essere: 

X= Schermo. 

Y= Stampante. 

Z= Nessun output. 

A-H= Drive per il file di referenze. 

Se “sol" è vuoto viene usato il drive di de¬ 
fault. 

Quindi: 

B>A:ZASM PROG = A:ZASM PROG.BBB 
B>A:ZASM PROG.A = A:ZASM PROG.ABB 
B>A:ZASM PROG.BZ = A:ZASM PROG.BZB 

In figura 1 sono presenti tutti gli argomenti 
che possono essere passati alla linea di co¬ 
mando. 


FORMATO ISTRUZIONI 

L’assembler assume che le istruzioni devo¬ 
no avere la forma come nello schema di fi¬ 
gura 2. 

La cosa che bisogna notare è che un 
identificatore che inizia alla prima colon¬ 
na è una label e può contenere i due punti 
finali. 

Sia gli OPCODE che le PSEUDO ISTRU¬ 
ZIONI devono iniziare con un TAB o uno 
SPAZIO per essere riconosciuti (vedi figu¬ 
ra 3). 


MNEMONICI STANDARD Z-80 

In figura 4 sono mostrate tutte le istruzioni 
mnemoniche dello Z80. 

Per la loro sintassi potete far riferimento al 
libro di Rodnay Zacks’ “Programmazione 
dello Z80" edito dalla Jackson. 

Una nota speciale va fatta per i registri 
indice. 

Il loro offset viene calcolato con 16 bit prima 
di testare se sono nel range giusto e quindi: 
LD A,(IX 4- OFFH) è illegale mentre LD 
A,(IX + OFFFFH) o LD A,(IX-1 ) sono legali ed 
accettate. 

Per questo motivo, quando dovrete usare 
offset negativi (numeri in complemento a 
due e quindi da 80H a OFFH) o fate 
precedere il numero esadecimale da OFF o 
usate direttamente il numero negativo 
corrispondente. 

Un'altra nota va fatta per le istruzioni di 
salto o chiamata condizionale che hanno 
una sintassi espansa come in figura 5. 
Esempio: 

LD A,SAM 
CP 20H 
JP GE,DEST 

Significa: salta a DEST se SAM GE 20H cioè 
se A >= 20H forma molto più comoda e 
comprensibile di JP C,DEST. 
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ESPRESSIONI 

Le espressioni sono calcolate a 16 bit e 
possono usare gli operatori (unari e binari 
illustrati in figura 6-7) e le parentesi tonde o 


quadre. 

Le istruzioni che richiedono le parentesi 
tonde come LD A,(HL) non possono usare 
la forma con le quadre. 

La priorità illustrata nelle figure 6 e 7 ha il 


seguente significato: un numero piccolo 
rappresenta una priorità grande; per uguali 
priorità il calcolo viene effettuato da sinistra 
a destra. 

Nelle espressioni può essere usato il simbo- 


IM 

IMO 

IMI 

IM2 IN 

INC 

IND 

INDR 

INI INIR 

JP 

JR 

LD 

LDD LDDR 

LDI 

LDIR 

NEG 

NOP OR 

OTDR 

OTIR 

OUT 

OUTD OUTI 

POP 

PUSH 

RES 

RET RETI 

RETN 

RL 

RLA 

RLC RLCA 

RLD 

RR 

RRA 

RRC RRCA 

RRD 

RST 

SBC 

SCF SET 

SLA 

SRA 

SRL 

SUB XOR 

Figura 5 



JP 

c. 

JP LT 

/ 

JP 

NC ; 

JP GE 

/ 

JP 

z, 

JP EQ 

/ 

JP 

NZ, 

JP NE 

$ 

JP 

PE, 

JP V, 


JP 

PO, 

JP NV 

r 

JP 

M, 

Nessun' 

altra sintassi 

JP 

P, 

Nessun' 

altra sintassi 

Figura 6 



Operatori unari 



OPERATORE 

PRIORITÀ' 

COMMENTO 


+ 

1 

Più 


- 

1 

Meno 


A 

1 

2 A potenza 




(Es: A ll è una 
word con il bit 




11 settato) 


~ 

4 

Not(Complemento 
ad uno) 


NOT 

4 

Not(Complemento 
ad uno) 


LOW 

8 

Byte basso 
(Byte alto 
settato a 0) 


HIGH 

8 

Byte alto 
(Scambia i byte 
e setta il byte 
alto a nuovo 
byte alto a 0) 

Figura 7 



Operatori binari 



OPERATORE 

PRIORITÀ' 

COMMENTO 


+ 

3 

Addizione 


- 

3 

Sottrazione 


* 

2 

Moltiplicazione 


/ 

2 

Divisione 


% 

2 

Modulo (13%5=3, 

15%5=0) 


& 

5 

And (tra bit) 


1 

6 

Or (tra bit) 


» 

2 

Shift a destra 
(80H»2=20H) 


« 

2 

Shift a sinistra 
( 7H«8=700H ) 


>= 

7 

Maggiore o uguale 


<= 

7 

Minore o uguale 


<> 

7 

Diverso 


> 

7 

Maggiore 


< 

7 

Minore 


= 

7 

Uguale 


MOD 

2 

Modulo - come % 


SHL 

2 

Shift a sinistra-come» 


Figura 

1 


RANGE 


Marca tutti i salti 
assoluti che possono 
essere sostituiti con 
salti relativi. 

PARITY 


Marca tutte le condizioni 
PE/PO/V/NV. 

XREF 


Produce un cross 
reference dei simboli 
usati. 

NOXREF 


Non produce il cross 
reference. 

SYMB 


Scrive una tabella dei 
simboli usati. 

PAGE 

= linee 

Setta la lunghezza della 
pagina. 

TOP 

= linee 

Setta il margine 

superiore della pagina. 

WIDTH 

= col 

Setta la larghezza della 
pagina. 

TRUNC 

= col 

Setta il carattere dove 
troncare la pagina. 

MACRO 

= file 

Specifica la Macro 

libreria da caricare. 

COND 


Lista le condizioni. 

NOCOND 


Non lista le condizioni. 

GEN 


Lista il codice generato 
dalle macro. 

NOGEN 


Non lista il codice 

generato dalle macro. 

TEXT 


Mostra tutti i byte 
generati dalle istruzioni 

NOTEXT 


Mostra solo i primi 4 
byte generati. 

LISTON 


Lista il codice sorgente. 

LISTOFF 

Non lista il codice 



sorgente. 

OPCODE 


Produce cross reference 
degli OPCODE. 

DEBUG 


Setta un bit non usato. 

HEX 


Produce un file .HEX 
invece di .REL. 

HEX 

= addr 

Produce un file .HEX con 
indirizzo = addr. 

DATE 

= mmddyy 

Setta la data per il file 
. PRN. 

TIME 

= hhmmss 

Setta l'ora per il file 
.PRN. 

Figura 

2 


LABEL: 

OPCODE 

PARAM ; Commento 

LABEL 

OPCODE 

PARAM ; Commento 


OPCODE 

PARAM ; Commento 


LABEL: 

OPCODE PARAM ? Commento 

Figura 

3 


TITLE 

Test program 


CR 

EQU 13 

Genererà un 

scritto come: 

errore e dovrà essere 


TITLE 

Test program 

CR 

EQU 

13 

Figura 

4 


ADC 

ADD 

AND BIT CALL 

CCF 

CP 

CPD CPDR CPI 

CPIR 

CPL 

DAA DEC DI 

DJNZ 

EI 

EX EXX HALT 
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SHR 

2 

Shift a destra-come« 


AND 

5 

And - come & 


OR 

6 

Or - come | 


XOR 

6 

Or esclusivo (tra bit) 


LT 

7 

Minore - come < 


GT 

7 

Maggiore - come > 


EQ 

7 

Uguale - come = 


NE 

7 

Diverso - come <> 


LE 

7 

Minore o uguale - 




come <= 


GE 

7 

Maggiore o uguale 




- come >= 

Figura 8 



START 

DL 

$ 



DB 

*ABCDEFGHIJKLMNOPQRSTUVWXYZ' 

NCHRS 

DL 

$-START 

/Numero di caratteri 

Figura 9 




ABS 


Definisce 
l'inizio di un 
codice di 




programma 

assoluto 




(equivale ad ASEG 
del MACRO 80). 


COM 

nome 

Blocco in comune 
(Common). 


CONMSG 

testo 

Testo 

visualizzato 
durante il 




secondo passo 

dell'assembler. 


DATA 


Definisce un 
segmento di dati 
(come DSEG del 

MACRO 80). 

[Ibi] 

DB 

byte 

Definisce dei byte. 

[Ibi] 

DEFB 

byte 

Come DB. 

Ibi 

DL 

vai. 

Definisce una label. 

Ibi 

DEFL 

vai. 

Come DL. 

[Ibi] 

DM 

byte 

Come DB ma setta 
il bit 7 
dell'ultimo byte. 

[Ibi] 

DEFM 

byte 

Come DM. 

[Ibi] 

DS 

len 

Riserva un'area 
di memoria lunga 

LEN. 

[Ibi] 

DEFS 

len 

Come DS. 

[Ibi] 

DW 

word 

Definisce delle 
word a 16 bit. 

[Ibi] 

DEFW 

word 

Come DW. 


EJECT 


Salto pagina per 
il file .PRN. 


ELSE 


Usato con IF/ENDIF. 

[Ibi] 

END 

[Ibi] 

Fine del 
programma (può 
includere un 
entry point). 


ENDIF 


Usato con IF/ELSE. 


ENDM 


Fine della macro 
(incluse IRP / 



ENTRY 

Ibi 

IRPC / REPT) 

Label definita 

Ibi 

EQU 

vai 

Pubblica (come 

PUBLIC per RMAC). 
Definisce il 


EXITM 

EXT 

Ibi 

valore di Ibi 

costante. 

Esce dalla macro 
prima di ENDM. 

Definisce Ibi 


EXTRN 

Ibi 

come label 

esterna. 

Come EXT. 


FORM 

GLOBAL 

Ibi 

Come EJECT. 

Prende il posto 


IF 

espr 

di ENTRY o EXTRN 
a seconda dei 
casi. 

Usato con ELSE / 


IRP 

#a,b,c,. 

ENDIF. 

Ripetizione 


IRPC 

#a,'abc' 

indefinita. 

Ripetizione 

[Ibi] 

JSYS 

vai 

indefinita dei 

caratteri. 

Salta alla 


LIST 

param 

locazione 8 (RST 

8H seguito da un 
byte). 

Introduce le 

macnom 

MACRO 

#a,#b,. 

opzioni per il 
file .PRN. 

Definisce la 


MEND 

MEXIT 

NAME 

nome 

macro macnom. 

Come ENDM. 

Come EXITM. 

Nome del modulo. 

macnom 

OMACRO 

#a,#b,.. 

Altrimenti è il 

nome del file. 

Come MACRO ma il 


ORG 

vai 

nome viene 

visualizzato 
nelle referenze 
degli OPCODE. 

Origine. Setta il 


REL 

REM 

testo 

PC. 

Segmento 
programma 
rilocabile (come 

CSEG nel MACRO 

80) 

Commento. 


REPT 

vai 

Equivale al punto 
e virgola. 

Ripetizione 


STRUCT 

vai 

comandi. 

Definisce una 


SUBTTL 

TITLE 

TITLE2 


struttura. 

Sotto titolo per 
il file .PRN. 

Titolo per il 
file .PRN 

Come SUBTTL. 


lo "$” che si riferisce al valore del PC. 

In questo caso $ = PC all’inizio della linea 
(vedere esempio in figura 8) in questione. 
Gli operatori relazionali possono essere 
usati anche con le stringhe di caratteri. 

Ad esempio IF "SAMV'GEORGE" darà un 
risultato negativo. 

Bisogna ricordare che la differenza di due 
referenze interne rilocabili produce una 
quantità assoluta (vedere esempio in figura 
8 in cui NCHR è uguale al numero di carat¬ 
teri). 


ISTRUZIONI E 
PSEUDO-ISTRUZIONI 

Le pseudo istruzioni di figura 9 non richie¬ 
dono prefissi speciali come succede invece 
per alcuni altri assemblatori. 

Solo quattro pseudo istruzioni discusse in se¬ 
guito richiedono come prefisso un asterisco. 
Per interpretare un'istruzione lo ZASM cer¬ 
cherà nel seguente ordine: 

1)Macro (che possono sostituire le istruzio¬ 


ni interne) 

2)lstruzioni interne. 

Molte delle pseudo istruzioni di figura 9 
possono non avere una label. 

Le parentesi quadre servono ad indicare 
che la label è opzionale. 

Purtroppo lo spazio a nostra disposizione è 
come al solito terminato. 

L'appuntamento è al prossimo mese ma vi 
ricordo che il programma è disponibile in 
redazione o sulla nostra BBS (300 / 1200 / 
2400 - 06/7665495 - 8N1). ■ 
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G.A.P. 

Primo Generatore Italiano di Programmi 
in linguaggio dBase III e compilatore clipper. 


G.a.p. è un pacchetto che permette di rea¬ 
lizzare in pochi minuti una intera pro¬ 
cedura di gestione di uno o più ar 
chivi dBase III a partire dal¬ 
l’inserimento, variazio¬ 
ne, cancellazione e 
visualizzazione per 
passare alle ricerche e 
stampe e per finire alla 
gestione sistema com¬ 
prendente salvataggi, ri¬ 
pristini, ristrutturazioni ecc. 

Il Generatore di Programmi 
in dBase III può essere utiliz¬ 
zato sia dalla grossa azienda, 
per ridurre i costi di realizzazio 
ne del soft-ware, che dal singolo 
amatore che intenda imparare a 
programmare. Nel primo caso i 



vantaggi sono molteplici: tempi di 
realizzazione deH'80-90% di una 
procedura praticamente nulli, uni¬ 
formità nella struttura delle videa- 
te, delle varie procedure, unifor¬ 
mità nella struttura dei pro¬ 
grammi; da questi vantaggi 
poi, ne scaturiscono altri co¬ 
me ad esempio una facile in¬ 
tercambiabilità dei pro¬ 
grammi da un progetto ad 
un altro. Nel secondo ca¬ 
so invece il fatto impor¬ 
tante è che GAP offre una 
soluzione al problema, spesso 
difficilmente risolvibile, di realizzare 
una procedura avente una struttura otti¬ 
mizzata sia in generale che aH’interno dei 
singoli programmi. 


CARATTERISTICHE TECNICHE 

1 - GENERAZIONE MENU 

Genera il programma principale, più quello di in¬ 
stallazione e quello di apertura degli archivi. 

2 - GENERAZIONE SOTTOMENU 

Genera i sottomenu successivi ai menu della pro¬ 
cedura da cui partiranno i programmi. 

3 - GENERAZIONE DATA ENTRY 

Genera i seguenti programmi: 

Inserimento - Variazione - Cancellazione - Visualiz¬ 
zazione 

4 - GENERAZIONE DATA ENTRY (EDIT) 

Genera un data entry, come il precedente, che uti¬ 
lizza il comando DBEDIT del CLIPPER. 


5 - GENERAZIONE GESTIONE SISTEMA 

Genera i programmi addetti alle seguente funzioni: 
Salvataggio - Ripristino - Ricostruzione indici -Ri¬ 
strutturazione - Azzeramento -Format dischetti - 
Accesso al DOS. 

6 - GESTIONE RICERCHE 

Genera programmi per la ricerca e la visualizzazio¬ 
ne dei campi del file. 

7 - GESTIONE STAMPE 

Genera programmi per la stampa del file. Contiene 
l’opzione per la selezione dei campi da stampare. 

HARDWARE RICHIESTO 

512 Kbyte, 2 Floppy o 1 Floppy + Hard Disk 



SCHEDA DI PRENOTAZIONE 

Desidero ricevere N° . copie del programma GAP in offerta speciale inviandovi la 

somma di L. 280.000 cadauna anziché 560.000 comprese le spese postali. 


□ Invio assegno bancario non trasferibile, di L.. 

intestato a EDICOMP Srl 

Versamento sul conto corrente postale n. 32109001 intestato a EDICOMP 
srl - Via Flavio Stilicone 111 - 00175 Roma, di cui allego fotocopia. 

□ Vaglia postale intestato a EDICOMP Srl - Via Flavio Stilicone 111 
OOI 75 Roma. 

Se è richiesta fattura indicare Partita IVA. 

Compilare e spedire in busta chiusa a: EDICOMP SH. - Via Flavio Stilicone 111 - 00175 Roma 


NOME . 

COGNOME 


VIA ... 

CAP.CITTÀ. 

PROV. Tel. 
















SCUOLA BIT 



il PROGETTO SCUOI AB IT 


di EPIFANIO GIUDICEANDREA 


Lettera aperta per i Presidi delle scuole che 
hanno aderito o intendono aderire al PRO¬ 
GETTO SCUOLA BIT 89/90 


aro collega, ti invio una pri¬ 
ma bozza del nuovo Proget¬ 
to Scuolabit pregandoti di 
farmi avere i tuoi rilievi, le tue 
osservazioni, i tuoi suggeri¬ 
menti assieme a quelli dei docenti della tua 
scuola. 


ScuolaBit 

MINISTERO P.I.-RAI-ITIS FERMI Roma 

Progetto-Programma 1989/90 

Obiettivi, metodologie e struttura di Scuo- 
laBit 1989/90 sono stati rielaborati e modi¬ 
ficati secondo le linee e lo spirito delle indi¬ 
cazioni scaturite dal convegno verifica te¬ 
nuto al Ceduic di Perugia nel febbraio 89 e 
dalla raccolta di indicazioni confronti sug¬ 
gerimenti venuti al centro di coordinamento 
ed assistenza tenuto all’ITIS FERMI di Roma 
nei mesi scorsi sulla base e con riferimento 
alle pagine di TELEVIDEO trasmesse dalla 
RAI. 

Si tratta, pertanto, di un progetto / pro¬ 
gramma alla cui elaborazione hanno parte¬ 
cipato attivamente e con vari livelli di contri¬ 
buti per professionalità ed esperienza do¬ 
centi e presidi delle scuole aderenti al Pro¬ 
getto, dirigenti del Ministero PI e della RAI, 
esperti del settore. 


OBIETTIVI 

Oltre agli obiettivi fin qui perseguiti la nuova 
attività prevede: 

-consolidare e sviluppare nei docenti le ca¬ 
pacità di uso delle nuove tecnologie tele¬ 
matiche e di elaborazione e di produzione 
do software didattico; 

-consolidare e sviluppare l’attitudine al la¬ 
voro di gruppo interdisciplinare; 
-consolidare o sviluppare la “rete scuola- 
bit" di comunicazione ed interscambio (Te¬ 
levideo Centro di coordinamento Fer- 
mi-List-Scuole aderenti); 

-curare che in ogni scuola partecipante si 
crei un clima di interesse ed attenzione al¬ 
l’uso ed alla sperimentazione di queste 
nuove tecnologie didattiche; 

-caratterizzare l’intera attività di quest’anno 
per la sperimentazione critica nelle singole 
classi delle tecniche e dei materiali proposti; 
-attivare tutti gli operatori per la ricerca e 
l’acquisizione di software didattico esisten¬ 
te in modo tale da fare assumere al proget¬ 
to anche una funzione di “Osservatorio 
permanente del software didattico”; 
-avviare un processo finalizzato ed avere 
nei docenti e nelle scuole la fonte principale 
per quantità e qualità del software didatti¬ 
co; 

-estendere e rafforzare la collaborazione 
con aziende ed enti che lavorano nel setto¬ 
re della formazione e della ricerca. 


METODOLOGIE 

-le singole unità didattiche saranno arric¬ 
chite di due o più complementi, sulla base 
della positiva esperienza dei mesi scorsi. 
Ciò per esigenze espresse di approfondire 
e di rendere didatticamente più agevole 
l’uso del materiale proposto; 

-saranno usate tecniche e strumenti nuovi 
per l'elaborazione dei materiali didattici 
(scanner, animazioni, grafica, ecc.); 

-sarà esteso a nuove materie l’uso del soft¬ 
ware; 


-si cercherà di introdurre negli istituti ade¬ 
renti la dimensione nuova della della “fles¬ 
sibilità": la capacità, cioè, di adeguarsi in 
tempi brevi alle modifiche dell’ambiente 
esterno. Infatti è necessario rendere più vi¬ 
vo e sensibile il rapporto tra formazione e 
professionalità; sia che si tratti di professio¬ 
nalità nuove emergenti, sia di professionali- 
- tà tradizionale, e ciò per la pervasività della 
telematica e la sua incontenibile azione di 
innovazione e trasformazione. 

-Sarà avviata nelle scuole aderenti una or¬ 
ganizzazione nuova del processo formati¬ 
vo, tale da configurare la scuola come un 
microsistema che sviluppi tutte le possibilità 
di interazione interno e di relazioni con 
l’esterno con il fine della ottimizzazione 
creativa delle risorse umane e strutturali e 
degli investimenti finanziari. 

-Si prevedono almeno due seminari / con¬ 
vegni di verifica, che saranno mirati anche 
a dare carica e contenuti umani alle rela¬ 
zioni stabilite attraverso la rete Scuola-bit. 


STRUTTURA 

La struttura si rafforzerà con interventi che 
riguarderanno e le singole scuole aderenti, 
e la rete. 

Per le singole scuole: 

si ricercheranno modi di formalizzazione 
dei gruppi di docenti coinvolti e di ricono¬ 
scimento del loro lavoro; 
si cercherà di rendere permanente l’intera¬ 
zione del gruppo con tutte le altre compo¬ 
nenti della scuola ed in particolare con gli 
organi collegiali; 

si ricercherà, in particolare, di organizzare 
e fare funzionare a sistema tutte le nuove 
macchine di cui via via si doterà la scuola; 
solo così il sistema telematico interno ed 
esterno potrà avviare in tempi brevi il rinno¬ 
vamento del processo formativo. 

Si avvierà la definizione delle nuove figure 
professionali all’interno di ogni singola 
scuola; 
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SCUOLA BIT 



ISTITUTI TECNICI 


SCUOLA 

INDIRIZZO 

PRESIDE 

ITI. AVOGADRO 

CORSO S. MAURIZIO 8-10124 TORINO 

RATTAZZI 

ITI. BALDRACCO 

CORSO CIRIE 7 - 10152 TORINO 

SAMMARTANO 

I.T.C. CAPITINI 

V. PIAN DELLA GENNA - 06100 PERUGIA 

MORFINI 

ITI. CARDANO 

P.ZZA D. RESISTENZA - 00015 MONTEROTONDO 

PEDICELLI 

ITI. COPERNICO 

V. PONTEGRADELLA 25 - 44100 FERRARA 

MARCHETTI 

ITI. CORNI 

L.GO A. MORO 25 - 41100 MODENA 

LAURI 

ITI. CURIE 

P.ZZA DANTE 9 - 00185 ROMA 

OLIVIERI 

I.T.C. DA VINCI 

V. CIUSA 4 - 09131 CAGLIARI 

FADDA 

IT I. DA VINCI 

V. MAZZINI 202 - 40046 PORRETTA T. 

GIOVANNONI 

I.T.C. DA VINCI 

V. PIAVE 10 - 03100 PROSINONE 

SORDI 

I.T.I. DA VINCI 

V. VOLTA-01100 VITERBO 

FAINA 

I T I. DI CASSINO 

V. PASCOLI 112 - 34043 CASSINO 

OTTAVIANO 

I.T.I. DI MONOPOLI 

V.LE RIMEMBRANZE 56 - 70043 MONOPOLI 

SCURA 

I.T.C. DUCA D. ABRUZZI 

V. E. FAZIO 1 - 30143 PALERMO 

DONES 

I.T.C. DUCA D. ABRUZZI 

V.LE MARAINI 54 - 02100 RIETI 

GRAZIANI 

I.T.C. EINAUDI 

V. GARIBALDI 184 - 56100 PISA 

MARINÒ 

I.T.C. EINSTEIN 

V. S. BARTOLO A CINTOIA 19A - FIRENZE 

CIPRIANI 

I.T.I. FERMI 

V. TRIONFALE 8737 - ROMA 

GIUDICEANDREA 

I.T.I. FERRARIS 

V. DEL PONTIERE 40 - 37122 VERONA 

MASSAGRANDE 

I.T.C. FILANGIERI 

V. DELLA CONCA - 04063 FORMIA 

D’ETTORRE 

I.T.I. GALILEI 

V. GALILEI 18 - 57122 LIVORNO 

CRINI 

I.T.I. GIORDANI 

V. LAVIANO-81100 CASERTA 

DI CECIO 

I.T.I. GIORGI 

V.LE LIGURIA 21 - 20144 MILANO 

DOMINONI 

I.T.I. GIULIA 

V. MONTECASSINO ANG. TIGLI - CAGLIARI 

VALENTINO 

I.T.C. LORGNA 

V. CA DE COZZI 39 - 37124 VERONA 

GARZOTTI 

I.T.I. MALIGNANI 

V. L. DA ' NCI 10 - 33100 UDINE 

ILLUSI 

ITI. MARCONI 

P LE SEGANTINI 21 - 37138 VERONA 

ANTUONO 

I.T.I. MARCONI 

V. MANZONI 80 - 35126 PADOVA 

MARINARO 

I.T.I. MARCONI 

V. RAFFAELLO SANZIO 8 - 60035 JESI 

TASSI 

I.T.C. MEDICI VASCELLO 

V. FONTEIANA 111 - 00152 ROMA 

PISTOLESE 

I.T.C. MELLONI 

V.LE MARIA LUIGIA 9 - 43100 PARMA 

PIANTONI 

I.T.I. NATTA 

V. DELLA CHIUSA - 16039 SESTRI LEVANTE 

CADORIN 

I.T.I. OLIVETTI 

COLLE BELLAVISTA - 10015 IVREA 

NICOSIA 

I.T.I. PACINOTTI 

V. APPIA LATO TIRI 5 - 04022 FONDI 

SCATTARETICO 

I.T.I. PACINOTTI 

V. MONTAIONE 9 - 00138 ROMA 

PORTELLI 

I.T.I. PANETTI 

V. RE DAVID 18A - 70125 BARI 

MASELLIS 

I.T.C. PARADISI 

V. RESISTENZA - 41058 VIGNOLA 

MERIGHI 

I.T.C. PARETO 

V. L. MODIGLIANI 55 - 20161 MILANO 

PEDRIZZI 

I.T.I. RIGHI 

V.LE KENNEDY 112 - 80125 NAPOLI 

FERRARA 

I.T.I. ROSATELLI 

V.LE FASSINI 2 - 02100 RIETI 

CATTANI 

I.T.C. SARPI 

V. CASTELLO 2821 C - 30122 VENEZIA 

BACCHION 

I.T.C. SELLA 

V. MONTECUCCOLI 12 - 10121 TORINO 

LEGE 

I.T.C. SERRA 

V. TRINITÀ DELLE MONACHE 2 - NAPOLI 

ALFANO 

I.T.C. TORTELLI 

V. SALITA BATTUTINE 10 - GENOVA 

FOSSATI 

I.T.C. TOSCANELLI 

V. A. OLIVIERI 141 - 00122 ROMA LIDO 

MELILLO 

I.T.C. V. EMANUELE II 

L.GO ZECCA 4-16124 GENOVA 

BISIO 

I.T.C. V. EMANUELE II 

P.ZA ANNA FRANK 11 - 06100 PERUGIA 

LORENZETTI 

I.T.I. VALLAURI 

V. GROTTAFERRATA 76 - 00178 ROMA 

FONTANA 

I.T.C. VESPUCCI 

V. CHIARINI 1 - 57123 LIVORNO 

DAIDONE 

I.T.I. VOLTA 

P.ZZA S. MARIA LA FEDE 16 - 80141 NAPOLI 

PORZIO 

I.T.C. VOLTA 

V.LE ROMA - 03100 FROSINONE 

SIMEONE 

I.T.C. ZANON 

P.LE CAVEDALIS 5 - 33100 UDINE 

MASSENZI 

I.T.C. ZAPPA 

V.LE MARCHE 71 - 20159 MILANO 

PROCINO 


I Presidi e gli Insegnanti possono utilizzare LIST come strumento di comunicazione, 
di confronto e di proposte per quanto riguarda il progetto SCUOLABIT. 


Per la rete: 

1) la RAI intende arricchire il patrimonio di 
unità didattiche informatizzate da più fonti 
ed in particolare sollecitando la produzione 
da scuole e da docenti per assicurare il 
massimo di pluralismo culturale; 

2) sulla base delle esperienze fatte e dalle 
osservazioni ricevute le trasmissioni saran¬ 
no meglio meglio rapportate alle esigenze 
delle scuole e dei docenti; 

3) il centro di coordinamento presso l'ITIS 
Fermi sarà ulteriormente potenziato per as¬ 
sicurare in tempi reali una diffusa comuni¬ 
cazione su problemi tecnici e didattici; 

4) i televisori Seleco da ottobre saranno do¬ 
tati di una uscita RS232 che può essere col¬ 
legata direttamente al computer senza bi¬ 
sogno di interfaccie; ciò comporta che oltre 
agli Istituti aderenti a Scuolabit potrà esser¬ 
vi un numero indefinito di utenti, scuole o 
singoli operatori che siano. Il Centro di 
coordinamento Fermi vorrà essere per tutti 
un affidabile punto di riferimento per assi¬ 
stenza tecnica e didattica; 

5) più stretta sarà la collaborazione tra 
Centro Fermi e la RAI per assicurare la riso¬ 
luzione dei problemi correlati tra tecnici e 
didattici; 

6) la rivista LIST farà parte della rete per for¬ 
nire agli utenti ed agli operatori uno stru¬ 
mento di livello per un confronto ed un dia¬ 
logo più meditato e critico; 

7) per promuovere la collaborazione critica 
e l’attività produttiva sopratutto tra i giovani 
la rivista LIST darà notizia di tutte le propo¬ 
ste e ne pubblicherà le più significative ed 
innovative, le quali ultime saranno anche 
trasmesse da TELEVIDEO; 

8) i gruppi di lavoro nelle singole scuole con 
la loro specifica strutturazione saranno ri¬ 
conosciuti e formalizzati dai Colleghi Do¬ 
centi e dai Consigli d’istituto. 

9) il Ministero della P.I., che avrà sempre la 
funzione di promozione, di coordinamento 
generale, di verifica e controllo, certificherà 
su indicazione dei presidi, validata dal cen¬ 
tro, l'attività svolta dai docenti nei vari Istitu¬ 
ti. 

Queste le novità più significative del Proget¬ 
to ScuolaBit 1989/90 in ordine agli obiettivi, 
alla metodologia ed alla struttura. Il Proget¬ 
to si sviluppa per contenuti e dimensione 
partecipativa, anche perché è animato e 
sostenuto da una esigenza viva e sempre 
più diffusa tra presidi e docenti dei vari Isti¬ 
tuti Scolastici del Paese: l’esigenza di co¬ 
municare. 

Il Preside dell’ITIS FERMI di ROMA 
on. Epifanio Giudiceandrea ■ 


LIST 10/89 


79 







PER SAPERNE DI PIU 



a casso 


AllC ROUTINI Dtl 

MONITOR 


di GIOVANNI GOUNO 


2 a Parte (La prima parte è stata pubblicata su! numero 7/8 1989) 


ontinuiamo l’esposizione sulle routines del Monitor, 
cioè quelle Utilities richiamabili da linguaggio mac¬ 
china o Assembler, tramite l’istruzione SWI (3FH). Il 
formato di questa istruzione Assembler è SWI nn, do¬ 
ve nn è un numero da 0 a 255. Il bit più significativo 
sta ad indicare se verrà simulato un JMP (nel caso il bit vale 1 ) o un 
JSR (se il bit vale 0). Per il corretto utilizzo di questa istruzione è op¬ 
portuno consultare sia la prima parte di questo articolo, sia il corso 
di Assembler apparso precedentemente su queste pagine. 

LETTURA DEL JOYSTICK: 1CH per JSR, 9CH per JMP 

Il numero (0 oppure 1) del joystick di cui si vuole conoscere lo stato 
è passato nel registro A. Dopo l’esecuzione, B contiene un valore 
da 0 a 8 cui corrisponde la posizione della leva, precisamente: 
0= centro, 1 = nord, 2 = nord-est, 3= est, 4= sud-est, 5= sud, 
6= sud-ovest, 7= ovest, 8= nord-ovest. 

Se il pulsante è stato premuto il flag di carry è settato a 1, in caso 
contrario vale 0. 

PENNA OTTICA: 16H per JSR, 96H per un JMP 

Con questa routine si controlla lo stato dell’interruttore della penna 
e il carry-flag viene settato a 1 se esso è premuto. 

La lettura delle coordinate si effettua con 18H per JSR e 98H per 
JMP. Dopo aver chiamato la routine, i valori delle coordinate po¬ 
tranno essere letti nei registri X e Y. Se la lettura della penna ottica 
non ha avuto esito positivo il carry viene settato a 1. 


REGISTRATORE A NASTRO 

Avviamento del motore: 22H per JSR, A2H per JMP. Se il bit 0 di A 
contiene un valore nullo, il motore si arresta dopo mezzo secondo, 
se i bit 0 e 1 di A contengono il valore 1, il motore si avvia e viene 
eseguito un ciclo di ritardo di un secondo, in modo che la velocità 
del motore si assesti (procedura utile in caso di registrazione), se 
invece il bit 0 vale 1 e il bit 1 vale 0 si ha l’avvio del motore senza ci¬ 
clo di attesa (caso di lettura). 


Lettura o scrittura di un blocco: 20H per JSR, AOH per JMP 

Ouesta routine permette di leggere o scrivere blocchi di lunghezza 
non maggiore di 253 byte. 

I blocchi possono essere di tre tipi, a seconda che il primo bytes ia 
00 (blocco di inizio file), 01 (blocco contenente i dati), FF (blocco di 
fine file). Se A è uguale a zero si tratta di un’operazione di scrittura, 
e quindi B deve contenere il tipo di blocco e Y l'indirizzo di memoria 
dove si trova il blocco. 

All’indirizzo puntato da Y troviamo un byte che deve contenere la 
lunghezza del blocco, "n” byte di dati (con “n” minore di 253) e in¬ 
fine un byte di checksum. In totale avremo un blocco lungo n + 2 
byte. 

Se invece A è diverso da zero, si tratta di una lettura e Y in tal caso 
deve contenere l’indirizzo in cui si vuole caricare il blocco letto. Al 
termine dell'operazione B conterrà il tipo di blocco. 

DISK DRIVE: 26H per JSR, A6H per un JMP 

È una delle routine più complesse viste finora, e quindi vale la pena 
di soffermarci un po’. 

II registro DK.OPC (2048H) contiene il codice dell’operazione, se¬ 
condo la seguente tabella: 

-01 per l’inizializzazione. Il carry-flag viene posto a 0 se l’operazione 
ha successo e il registro DK.STA (204EH) contiene “C” se il control¬ 
lore è a singola densità oppure “D” per la doppia densità. In caso 
di errore il carry-flag è posto a 1 
-02 lettura di un settore 

-04 passaggio da doppia a singola densità (solo per controllore 
doppia densità) 

-08 scrittura di un settore 

-10H passaggio da singola a doppia densità (solo per controllore 
doppia densità) 

-20H ricerca della pista 0 

-40H ricerca della pista il cui numero è memorizzato nel registro 
DK.TRK (204AH-204BH). 

Il numero del drive deve essere specificato nel registro DK.DRV 
(2049H) e può variare da 0 a 3, il numero del settore va specificato 
in DK.SEC (204CH), mentre in DK.BUF (204FH-2050H) va messo 
l’indirizzo di inizio del buffer di memoria (128 byte in SD, 256 byte in 
DD) da leggere o scrivere. In caso di errore, il registro DK.STA con¬ 
tiene il codice corrispondente e precisamente: 
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-01 dischetto protetto in scrittura 
-02 errore su pista 
-04 errore su settore 

-08 errore sui dati, in seguito a controllo del byte di check-sum 

-10H drive malfunzionante o inesistente 

-20H errore in seguito a verifica (dati in memoria e dati su dischetto 


non coincidenti) 

-40H controllore malfunzionante o inesistente 
-80H dischetto non formattato 

Non ci resta altro che accennare al fatto che la pista 20 è riservata 
dal sistema operativo per la memorizzazione della FAT (File Alloca- 
tion Table, tipica dei sistemi operativi della Microsoft) e la directory. 


Software 

Interrupt 


di PAOLO FREQUENTI 


ell’analisi degli interrupt del 6809 avevamo voluta- 
mente trascurato l’interrupt di tipo SWI, in quanto 
estremamente particolare e vasto nella trattazione. 
Ci proponiamo quindi di analizzarlo più specifica- 
mente in questa sede, per dare a coloro che lavora¬ 
no in linguaggio macchina la possibilità di sfruttare alcune ca¬ 
ratteristiche del sistema. Lo SWI (Software Interrupt) è un inter¬ 
rupt non generato da un dispositivo esterno, ma richiesto da 
una routine qualsiasi. La potenza di questo interrupt sta nel fat¬ 
to che permette di richiamare alcune routine facenti parti del si¬ 
stema operativo (S.O.). La richiesta di questo interrupt da parte 
di un programma si effettua tramite l’istruzione SWI, il cui codice 
operativo è &h3F. È fondamentale il fatto che il byte seguente 
l’istruzione SWI (definibile con un FCB - per chi usa un assem¬ 
blatore) permette di scegliere quale subroutine del S.O. deve es¬ 
sere eseguita. Non è possibile generalmente definire questo byte 
con la stessa SWI (cioè con una istruzione del tipo SWI $cc) an¬ 
che se alcuni disassemblatori la riportano erroneamente. In fun¬ 
zione del valore di cc possiamo già dividere in due gruppi fonda- 
mentali le subroutine: tipo JSR e tipo JMP. Il tipo JSR equivale a 
chiamare una subroutine con una istruzione del tipo JSR $iiii,-al 
termine della quale il controllo torna alla routine che ha genera¬ 
to la SWI nel punto successivo all’istruzione SWI stessa. Il tipo 
JMP, invece equivale ad un salto incondizionato ad una deter¬ 
minata routine come con l’istruzione JMP $iiii. Il controllo non 
tornerà più alla routine chiamante, ma al BASIC o al S.O. Gene¬ 
ralmente, indicando con CC il codice seguente la SWI, se questo 
è maggiore o uguale a 128 (bit 7= 1) si tratta di una routine del 
tipo JMP mentre se è minore di 128 (bit 7 = 0) si tratta del tipo 
JSR. Verranno qui di seguito proposti alcuni codici per determi¬ 
nare SWI, che svolgono funzioni molto utili risparmiando memo¬ 
ria in una routine da noi generata. 


SWI $82 (tipo JMP) 

Questa SWI è una delle più potenti e utili subroutine del sistema. 
Permette di stampare un carattere qualsiasi dall’intero set di carat¬ 
teri standard. Il carattere da stampare è contenuto nel registro B 
(codice ASCII). La potenza di questa SWI consiste nel poter stam¬ 
pare tutta la serie di caratteri di controllo, attivi con il carattere ESC 
(chr$27). La stampa avviene nella posizione corrente del cursore. 

SWI $A4 (tipo JMP) 

Con questa subroutine è possibile inviare dati alla stampante. Il re¬ 
gistro B contiene il dato da inviare (carattere ASCII o caratteri di 
controllo propri della stampante). I dati inviati vanno a depositarsi 
nel buffer, che può essere stampato con l’apposito codice di con¬ 
trollo quale anche il codice 13. 

SWI $8A (tipo JMP) 

Questa è un’altra delle più importanti subroutine del sistema in 
quanto permette la lettura della tastiera, riportando il codice ASCII 
del tasto premuto. Vengono anche riconosciuti i tasti BASIC + KEY, 
che riportano un codice maggiore di 127. Dopo la chiamata di que¬ 
sta routine, il registro B contiene il codice 0 se nessun tasto è stato 
premuto oppure il codice del tasto premuto. 

SWI $4 (tipo JSR) 

Permette di selezionare la memoria grafica dello schermo video. 
Non necessita di parametri. 

SWI $6 (tipo JSR) 

Permette di selezionare la memoria dei colori dello schermo video. 
Nessun parametro in ingresso. 

Purtroppo non esiste un elenco delle SWI del sistema, e quelle che 
vi abbiamo proposto sono frutto di ore di ricerca e continui RESET. 
Bisogna quindi considerare questo articolo come mai chiuso, in 
quanto non mancheremo di presentarvi altre subroutine, quando 
riusciremo ad individuarne il corretto modo di funzionamento. 
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PER SAPERNE DI PIU’ 


NUOVE 
ISTRUZIONI AL 

BASIC 128 

di GIOVANNI GOLINO 



ome molti già sanno le istruzioni di un programma 
Basic vengono codificate, in fase di memorizzazio¬ 
ne, con un solo byte contenente il valore del ‘‘TO¬ 
KEN’’. 

Il comando LIST si occupa di sostituire, prima della 
visualizzazione, i caratteri che costituiscono il nome dell’istruzione 
al token corrispondente. 

Poiché i codici da 0 a 127 sono riservati al set di caratteri ASCII, è 
ovvio che i token saranno tutti quei byte che contengono un valore 
compreso tra 128 e 255. 

Ciò non significa che le istruzioni del Basic a nostra disposizio¬ 
ne sono solo 127 (in realtà sono più di 180). Infatti un certo nu¬ 
mero di parole chiave (64 in tutto) vengono codificate utilizzan¬ 
do due byte anziché uno solo, il primo dei quali contiene il valore 
255. 

Un metodo semplice per verificare tutto questo è di far girare il se¬ 
guente piccolo programma: 

10 BANK1 

20 FOR 1 = 128 TO 255:POKE &H6007,I:LIST 10,40:NEXT I 
30 FOR 1 = 128 TO 255:POKE &H6008,I:LIST 10,50:NEXT I 

Memorizzando nelle due locazioni sopra riportate dei valori com¬ 
presi tra 128 e 255 e listando in seguito la linea 10, si ottiene l’elenco 
di tutte le parole chiave riconosciute. 


Noterete certamente l’assenza di istruzioni Basic associate ai valori 
che vanno da 249 a 254: corrispondono infatti ai token definibili 
dall’utente. Il valore 255 non è definibile, a causa dei motivi sopra 
descritti. 

Cerchiamo di capire come si possono sfruttare questi sei token 
“vacanti’’: 

1 ) inserire prima di tutto nella locazione 277AH il numero di coman¬ 
di Basic che si vuole aggiungere (sei al massimo) 

2) inserire nelle locazioni 277DH-277EH, l’indirizzo del programma 
che gestirà questi nuovi comandi, tenendo presente che a) il byte 
corrispondente al comando richiamato è contenuto nel registro A 
b) dopo aver effettuato il riconoscimento del comando e prima di 
provvedere alla routine corrispondente, occorre eseguire un JSR 
<C0 (9D CO), il che equivale ad un salto all’indirizzo 21C0H, dal mo¬ 
mento che il valore correntemente contenuto nel registro DP è 21H 

3) inserire nelle locazioni 277BH-277CH, l’indirizzo della tabella dei 
comandi, tenendo presente che a) le parole chiave vanno memo¬ 
rizzate in maiuscolo, una di seguito all’altra b) nel byte corrispon¬ 
dente all’ultimo carattere di ogni parola chiave, va posto a 1 il bit 
più significativo (se ad esempio si trattasse di una “A", andrebbe 
codificata come C1H anziché 41H). 

Questa tecnica è stata utilizzata nel programma “Musica a tre vo- 
ci”, pubblicato su LIST di Maggio. Vi basterà quindi analizzare que¬ 
sto listato per verificare praticamente l’uso del procedimento appe¬ 
na illustrato. 




di ANDREA PETRICONI 


DEBUG FA CILE 


Come fare quindi ad individuare subito la linea DATA errata? 
Semplice, facendo uso di un puntatore contenuto nella memoria 
del C128 e precisamente quello contenuto nelle due locazioni 65 e 
66 di pagina zero. 

Queste due locazioni contengono infatti il numero dell'ultima linea 
di DATA letta dal computer e, in questo caso, quella sbagliata. 
Per poter leggere questo numero di linea è sufficiente digitare in 
modo diretto: 

PRINT PEEK(65) + 256*PEEK(66) 

ed il valore “incriminato" verrà immediatamente visualizzato sullo 
schermo! 


opo la digitazione di listati molto lunghi, contenenti 
à numerose linee di DATA, è frequente l’apparizione 

I | ■ del malaugurato messaggio “ 9 ILLEGAL QUANTITY 
"lERROR IN...”. 

Purtroppo la linea indicata nel messaggio è quella 
che contiene l’istruzione READ, non quella contenente il dato digi¬ 
tato in maniera errata (ad esempio 1234,2 anziché 123,42). 
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PROGRAMMI 



QUICK SCROLL 


di ANDREA PETRICONI 


LZ ccovi un utilissimo effetto di scroll che potete sfrutta¬ 
re per realizzare i vostri videogiochi. 

Come si conclude facilmente gettando un rapido 
sguardo sul listato, la routine fa uso di un solo regi¬ 
stro (locazione 53265) del quale viene ciclicamente 
alterato il contenuto, eseguendo un’operazione di OR logico tra il 
registro stesso ed un valore compreso tra 0 e 7. 


10 REM * QUICK SCROLL PER C128 * 

20 PRINT CHR$(147):A$= "* QUICK SCROLL *" 
30 POKE 53265,PEEK(53265) AND 247 
40 FOR 1 = 1 TO 24 
50 PRINT TAB(12) A$ 

60 NEXT I 

70 PRINT TAB(12) A$; 

80 FOR I = 7 TO 0 STEP -1 

90 POKE 53265,PEEK(53265) AND 248 OR I 

100 NEXT I 

110 GOTO 80 


TURBO 64 


di ALESSANDRO DOBICI 


e possedete un Commodore 128. vi capiterà fre¬ 
quentemente di utilizzarlo in modo 64. Bene, con la 
routine TURBO 64 potete far girare il computer ad 
una velocità di clock di 2 MHz, anche in emulazione 
C64! 

Praticamente con il tasto CAPS LOCK premuto il computer funzio¬ 


nerà a 2 MHz anziché 1 MHz, con un conseguente aumento della 
velocità di esecuzione del 100%. 

Purtoppo c’é una limitazione: con il clock a velocità doppia il video 
risulterà disabilitato. 

Potete comunque trarre notevoli vantaggi dall'uso di questa routi¬ 
ne, in tutte le situazioni in cui non è temporaneamente necessario 
visualizzare i dati. 

10 REM * C64 A 2 MHZ * 

20 FOR 1 = 0 TO 37:READ A:POKE 52992 + 1,A 
30 C = C +A:NEXT I 

40 IF C<>3600 THEN PRINT “ERRORE!”:END 
50 SYS 52992:PRINT “OK!”:END 
60 DATA 169,11,141.20,3.169.207,141,21 
,3,96,165,1,41,64,73.64.10.10.42 
70 DATA 141,37,207,173,48,208,41,252,1 
3,37,207,141.48.208,76,49,234,29 



RI DEFINIAMO L HELP 


di ANDREA PETRICONI 


on l’uso del comando “KEY” è possibile ridefinire a 
piacimento gli otto tasti funzione del C128. 
Purtroppo il tasto di HELP non sembra accettare 
questo "trattamento”. 

Con un piccolo accorgimento è però possibile attri¬ 
buire qualunque stringa vogliate, anche a questo tasto funzione 
...ribelle! 


Digitate e lanciate questo mini-programma: 

10 FOR 1 = 0 TO 4:READ X:POKE 4168 +l,X:NEXT I 
20 DATA 71,79,54,52,13 

La linea di DATA deve contenere i codici ASCII della stringa che si 
vuole attribuire al tasto funzione. Nell’esempio da noi proposto, 
premendo il tasto di HELP apparirà il messaggio "G064 ARE YOU 
SURE?”. 

I codici ASCII della linea 20 corrispondono infatti ai caratteri 
G,0,6,4 ed al tasto di RETURN (codice 13). 
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di RAFFAELE D’ALESSIO 


La linea 60 genera un LOOP infinito, che normalmente si può inter¬ 
rompere con la pressione contemporanea dei tasti CON¬ 
TROL-BREAK. 

Potrete invece verificare che premendo questi tasti ò il "terzetto” 
CONTROL - ALT - DEL, verrà eseguita la subroutine alla linea 80. 
che pulisce lo schermo, stampa un messaggio sul video e arresta 
l’esecuzione. 

Se desiderate che la pressione di questi tasti non produca alcun ef¬ 
fetto percepibile dall’utente, sarà sufficiente che la subroutine in 
questione contenga solamente l’istruzione RETURN. 

In questo modo non sarà assolutamente possibile bloccare "clan¬ 
destinamente” l’esecuzione del vostro programma, se non secon¬ 
do le modalità da voi previste. 

Ci proponiamo di approfondire ulteriormente questo argomento 
nei prossimi numeri. 


hissà quante volte vi sarete chiesti se è possibile di¬ 
sabilitare l’effetto dei tasti CONTROL-BREAK (che 
determinano l’interruzione dell’esecuzione di un pro¬ 
gramma) e dei tasti CONTROL-ALT-DEL (che pro¬ 
ducono il RESET della macchina), evitando così che 
un utente possa inavvertitamente, o volontariamente, interrompere 
l’esecuzione del vostro programma. 

Ebbene, tutto questo non solo è possibile, ma è semplicissimo da 
realizzare grazie all’istruzione KEY del Basic. 

Il programmino dimostrativo che vi forniamo in questa pagina, vi 
permetterà di capire la tecnica da utilizzare (il cosiddetto “trap- 

ping"). 

Solamente le prime cinque linee sono “d’obbligo”, dal momento 
che il resto del listato ha uno scopo, per così dire, didattico. 


10 KEY 15,CHR$C&H4)+CHR$(&H46) 

20 KEY 16,CHR$(&HC)+CHR$(&H53) 

30 ON KEY<15 > GOSUB 80 
40 ON KEY(16) GOSUB 80 
50 KEYC15) 0N:KEY(16) ON 
60 GOTO 60 
70 : 

80 CLS:PRINT "Esecuzione terminata!":END 



SCROLUNG 


di GIAN PIERO ROSI 


uesta semplicissima routine Basic è in grado di far 
scorrere sullo schermo una stringa di lunghezza ar- 
■ bitraria, in qualunque posizione vogliate. 

[_ a su^o^ne vera e propria, che dovrete copiare 
nei vostri listati, è quella contenuta nelle linee 60,70 e 
80. Per utilizzarla è sufficiente assegnare alla variabile A$, il messaggio 
che volete far scorrere sullo schermo, e alla variabile x il numero della 
linea di schermo (da 1 a 24) sulla quale volete che la stringa venga vi¬ 
sualizzata. A questo punto basterà richiamare la routine con un istru¬ 
zione GOSUB 60 (ovviamente il numero di linea dopo l’istruzione deve 
corrispondere all’inizio della subroutine, che nel nostro caso è 60). Il 
messaggio comincerà quindi a scorrere sul video, finché non sarà 
premuto un tasto qualunque. Nel breve listato che pubblichiamo è 
presente, oltre alle tre linee della routine in questione, anche un esem¬ 
pio di utilizzo pratico, che parte dalla linea 100. Fornendo il comando 
di RUN vedrete lo scrolling orizzontale della prima stringa (dichiarata 
alla linea 110) dopodiché, premendo un tasto, inizierà a scorrere il se¬ 
condo messaggio (quello contenuto nella linea 120). Alla pressione di 
un nuovo tasto, l'esecuzione del programma terminerà. 


10 GOTO 100 
20 : 

30 REM . 

40 REM SCROLLING 

50 REM . 

60 COLOR 0,7,0:IF LEN(A$)<80 THEN AS=AS+ 
SPACE$(80-LEN(A$)) 

70 LOCATE X,1:PRINT LEFTS(A$,80):A$=RIGH 
T$(A$,LEN(A$)-1)+LEFT$(A$,1) 

80 IF INKEY$= mi THEN 70 ELSE COLOR 7,0,0 

.-RETURN 

90 : 

100 CLS:KEY OFF:X=12 

110 A$= M - LIST - Programmi per il 
tuo computer * *** QUESTA E 1 LA 

PRIMA PROVA DI SCROLLING ORIZZONTALE ** 
* GOSUB 60 

120 A$= M * SECONDA PROVA DI SCROLLING 
GOSUB 60 
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PER SAPERNE DI PIÙ 


TRAPPING 


di RAFFAELE D’ALESSIO 
e GIAN PIERO ROSI 


f GW-BASIC 


ome vi ho promesso, eccomi di nuovo a parlare con 
voi del "trapping" dei tasti, ovvero della rilevazione 
da parte di un programma scritto in GW-BASIC. della 
pressione di uno o più tasti. 

Con la tecnica del trapping è possibile tare in modo 
che una subroutine venga eseguita ogni volta che un certo tasto 
viene premuto. È possibile rilevare anche le combinazioni di più ta¬ 
sti normalmente non testabili, come CONTROL-BREAK o CON- 
TROL-ALT-DEL. 

La sintassi da usare è la seguente: 

KEY n,CHR$(cod1 ) + CHR$(cod2) 

Il valore di “n" può variare tra 15 e 20, essendo i primi dieci valori 
dedicati ai tasti funzione, mentre i quattro successivi sono preposti 
al rilevamento dei tasti-cursore (rispettivamente in alto, a destra, a 
sinistra e in basso). 

Abbiamo quindi la possibilità di definire secondo le nostre esigen¬ 
ze, sei differenti combinazioni di tasti. 

Per il valore di “codi” bisogna riferirsi alla seguente tabella: 


ALT &H08 

CAPS LOCK &H40 

CTRL &H04 

EXTENDED &H80 

NUM LOCK &H20 

SHIFT DESTRO &H01 

SHIFT SINISTRO &H02 


Da notare che questi codici esadecimali possono essere sommati 
tra loro, per il rilevamento della pressione di più tasti contempora¬ 
nei. Ad esempio, sapendo che il codice del tasto DEL vale &H53 e 
volendo "catturare” la combinazione CONTROL-ALT-DEL (che 
notoriamente causa l’inizializzazione del sistema), bisogna usare 
la seguente istruzione: 

KEY 15,CHR$(&H0C) + CHR$(&H53) 

Infatti, la somma dei valori esadecimali &H04 e &H08. fornisce il ri¬ 
sultato &H0C. 


A questo punto bisogna definire la subroutine che dovrà essere 
eseguita quando il tasto viene premuto. 

Per far questo si utilizza la seguente istruzione: 

ON KEY(15) GOSUB 1000 

e, naturalmente, alla linea 1000 dovrete inserire la subroutine da voi 
desiderata, che dovrà terminare con l’istruzione RETURN. 

Se il vostro unico scopo è di disabilitare una determinata sequenza 
di tasti (ad esempio CONTROL-BREAK o CONTROL-ALT-DEL), la 
subroutine dovrà consistere esclusivamente nell'istruzione RE¬ 
TURN. 

Per abilitare il rilevamento è necessaria l’istruzione KEY ON. 

Ecco ora la tabella con i codici esadecimali per il valore “cod2" (da 
far precedere, come sempre, dai simboli &H): 


Ol 

ESC 

1D 

CTRL 

39 

SPAZIO 

02 

1/! 

1E 

A 

3A 

CAPS LOCK 

03 

2/@ 

1F 

S 

3B 

FI 

04 

3/# 

20 

D 

3C 

F2 

05 

4/$ 

21 

F 

3D 

F3 

06 

5/% 

22 

G 

3E 

F4 

07 

6/~ 

23 

H 

3F 

F5 

08 

7/& 

24 

J 

40 

F6 

09 

8/* 

25 

K 

41 

F7 

OÀ 

9/( 

26 

L 

42 

F8 

OB 


27 

* / • 

43 

F9 

OC 

-/ 

28 


44 

FIO 

OD 

=/+ 

29 

■/* 

45 

NUM LOCK 

OE 

BS 

2A 

SHIFT S. 

46 

SCROLL LOCK 

OF 

TAB 

2B 


47 

7/HOME 

IO 

Q 

2C 

Z 

48 

8/SU 

11 

W 

2D 

X 

49 

9/PGUP 

12 

E 

2E 

C 

4A 

- 

13 

R 

2F 

V 

4B 

4/SINISTRA 

14 

T 

30 

B 

4C 

5 

15 

Y 

31 

N 

4D 

6/DESTRA 

16 

U 

32 

M 

4E 

+ 

17 

I 

33 

,/< 

4F 

1/END 

18 

0 

34 


50 

2/GIU' 

19 

P 

35 

//•? 

51 

3/PGDN 

1À 

[/< 

36 

SHIFT D. 

52 

O/INS 

1B 

]/) 

37 

*/PRTSC 

53 

./del 

1C 

RETURN 

38 

ALT 
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PER SAPERNE DI PIÙ 



CORSO DI ASSEMBLER 
E PROGRAMMAZIONE 
IN LM PER "MSX" 


ASSEMBLER Z80 


di FRANCESCO DURANTI 

2 a parte 

on questa seconda parte del corso di Assembler e 
programmazione in linguaggio macchina per MSX, 
terminiamo la presentazione dei disassemblati della 
ROM, cominciata nel numero precedente. 

Iniziamo, quindi, il discorso riguardante in modo 
specifico la gestione della memoria. 


RST 20 

NOME :DCOMPR 
ENTRATA : 20H 

FUNZIONE: Confronta DE e HL 
INPUT : DE, HL 

OUTPUT : Flag NC se HL>DE, Z se HL = DE, C se HL<DE 
MODIFICA; AF 

L0020: JP L0C04 

L0C04: LD A,H ; A = H (Rende A uguale ad H) 

SUB D ; A = A-D (H = H-D), FLAG (Z H = D,C H<D,NC H>D) 
RET NZ ; Ritorna se A ed H sono diversi altrimenti 
LD A,L ; A = L (Rende A uguale ad L) 

SUB E ; A = A-E (L = L-E), FLAG (Z L = E,C L<E,NC L>E) 
RET ; ritorna 


RST 28 

NOME : GETYPR 
ENTRATA : 28H 

FUNZIONE: Determina il tipo di operando che è puntato da VAL- 
TYP (0F663H) 

INPUT : Nessuno 

OUTPUT : AF = Tipo; Integer: A = FFH, Flag M, NZ, C- 

Stringa: A = 00H, Flag P, Z, C 

Singola: A = 01H, Flag P, NZ, C 

Doppia : A = 05H, Flag P, NZ, NC 

MODIFICA: AF 

L0028: JP L2689 


L2689: JP L5597 

L5597: LD A,(0F663H) ; In A VALTYP 
CP 8H ; Doppia precisione? 

JR NC.L55A3 ; Se si allora salta a L55A3 

SUB 3H ; Altrimenti sottrai 3 al tipo 

OR A ; Se è una stringa setta Zero 

SCF ; Setta il carry flag 

RET : Ritorna 

L55A3: SUB 3 ; Sottrae 3 

OR A ; Resetta zero 

RET ; Ritorna 


RST 30 

NOME : CALLF 

Verrà esaminato nella puntata riguardante la gestione degli Slot. 


RST 38 

NOME : KEYINT 
ENTRATA : 38H 

FUNZIONE: Procedura di interrupt 
INPUT : Nessuno 
OUTPUT : Nessuno 
MODIFICA: Nessuno 

Questa è la routine di gestine degli interrupt generati dal VDP ogni 
20 mS. Il registro di stato è letto e viene testato il bit 7 per essere si¬ 
curi che la chiamata sia stata fatta dall’interrupt generato dal VDP 
altrimenti si ritorna al programma. Il contenuto del registro di stato 
è salvato in STATFL (0F3E7H) e il bit 5 è controllato per vedere se 
c’è stata una collisione di sprite. Se c’è stata una coincidenza allo¬ 
ra aggiorna il valore nella TRPTBL (0FC4CH - 0FC99H). 

INTCNT (0FCA2H - 0FCA3H), ovvero il contatore di “INTERVAL", è 
decrementato. Se è zero il corrispondente valore in TRPTBL viene 
aggiornato e INTCNT viene resettato con il valore contenuto in INT- 
VAL (0FCA0H -0FCA1H). 

JIFFY (0FC9EH - 0FC9FH), contatore di “TIME”, è incrementato. 
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MUSICF (0FB3FH) è esaminato e ognuna delle tre voci viene suo¬ 
nata. 

SCNCNT (0F3F6H) è decrementata per determinare se bisogna 
controllare la tastiera o i joystick altrimenti la routine di interrupt 
termina. 


LA ROM E LA GESTIONE DELLA MEMORIA 

I sistemi MSX possono gestire una quantità enorme di memoria 
(1024 Kbyte per gli MSX1 e 4096 Kbyte per gli MSX2) e. dato che il 
processore è uno Z-80 che lavora ad 8/16 bit e che il massimo della 
memoria indirizzabile contemporaneamente è di 64 Kbyte, questa è 
gestita divisa in banchi da 64 Kbyte, ognuno dei quali è diviso in 
pagine di 16 Kbyte numerate da 0 a 3. 

Le 4 pagine gestite dal processore possono trovarsi in un qualsiasi 
banco. 

Ogni banco di memoria viene chiamato slot e gli slot in cui si posso¬ 
no inserire le cartucce vengono chiamati slot di espansione. 

Ogni slot è perfettamente equivalente ad un altro e quindi la RAM e 
la ROM si possono trovare in qualunque slot, sia primario che se¬ 
condario. 

Gli slot sono controllati dalla porta A dell’onnipresente PPI nel se¬ 
guente formato: 


BIT : 

1 7 6 1 

1 5 4 

1 3 2 

110 1 

VALORI s 

1 V 

1 y 

1 0 1® 

0 0 | 

PAGINE : 

3 

2 

1 

0 


Il valore indica lo slot in cui selezionare la pagina di memoria. Per 
leggere o scrivere un valore nel registro di selezione basta farlo con 
le istruzioni INP o OUT. 

Pe r selezionare pagine diverse dalla numero 2 bisognerà ricorrere 
a routine in linguaggio macchina come questa: 

DI ;Disabilita le interruzioni 

LD A,valore deposita in A il valore da scrivere nella porta 
OUT (0A8H),A ;Scrive il valore ed abilita lo slot 

Per leggere o scrivere valori nella porta di selezione dello slot si 
possono usare anche le routine del BIOS: 

NOME : RSLREG 
ENTRATA : 138H 

FUNZIONE : Legge il contenuto del registro di selezione degli slot 

INPUT : Nessuno 

OUTPUT : Il valore letto in A 

MODIFICHE: A 

L0138: JP L140E 

L140E: IN A,(0A8H) 

RET 


ENTRATA : 13BH 

FUNZIONE : Scrive un valore nel registro di selezione degli slot 
INPUT : Il valore da scrivere nel registrò A 
OUTPUT : Nessuno 
MODIFICHE: Nessuno 

L013B: JP LI 411 

LI411 : OUT (0A8H),A 
RET 

Queste routine esistono solo per motivi di compatibilità, dato che in 
future versioni di MSX la selezione degli slot si potrebbe fare in mo¬ 
do diverso. 

WSLREG non consente di abilitare la pagina 0 di slot differenti da 
quello della ROM dato che dopo il cambio di slot viene persa l’istru¬ 
zione RET per il ritorno al programma. 

14 slot primari permettono di avere un massimo di 256 Kbyte (64x4) 
ma possono essere espansi in modo da formare ognuno altri 4 slot 
“secondari”. Ognuno di questi può contenere 64 Kbyte e quindi 
avremo 4 slot primari formati ciascuno da 4 slot secondari, per un 
totale di 16 slot da 64 Kbyte per un totale di 1024K byte (1 Mbyte). 
Per selezionare uno slot secondario bisogna ricorrere al registro di 
espansione posto all’indirizzo OFFFFH dello slot primario. 

Ogni coppia di bit controlla una pagina di 16K byte ed indica quale 
degli slot secondari è abilitato. 

Quando andiamo a leggere questa locazione non avremo il vero 
valore ma il suo complemento ad 1 (ciò equivale ad invertire nel by¬ 
te gli 1 con gli 0 e viceversa). 

Nelle locazioni che vanno da 0FCC1H a 0FCC4H (EXPTBL) vi sono 
4 byte (1 per slot) che indicano se lo slot primario è espanso (&H80) 
o no (&H00). 

Le 4 locazioni seguenti (0FCC5H-0FCC9H:SLTTBL) contengono il 
valore contenuto nei registri di espansione ma hanno significato 
solo se il corrispondente slot è espanso. 

Dato che ogni slot, per essere selezionato, avrà bisogno di 4 bit (2 
per lo slot primario e due per quello secondario), le routine del BIOS 
che si occupano di selezionare altri slot richiedono un identificato¬ 
re chiamato "slot-in" in cui i bit 0-1 rappresentano il numero dello 
slot primario, i bit 2-3 rappresentano il numero dello slot seconda¬ 
rio, i bit 4-5-6 non sono utilizzati ed il bit 7 deve essere settato se è 
specificato lo slot secondario, cioè se deve avvenire la selezione 
dello slot anche tramite il registro degli slot secondari. 


7 654 32 10 


flag per gli Slot Slot 

slot secondari secondario primario 


Come si può notare manca qualsiasi indicazione sulla pagina da 
selezionare, dato che verrà specificata neH’indirizzo stesso da chia¬ 
mare. Voglio ricordarvi, infatti, che ogni pagina ha degli indirizzi di 
memoria ben precisi: 

PAGINA 0: 0000H-3FFFH 
PAGINA 1: 4000H-7FFFH 
PAGINA 2: 8000H-BFFFH 
PAGINA 3: C000H-FFFFH 


NOME : WSLREG 
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LA RUBRICA DELLA POSTA RACCOGLIE IL DIALOGO CON I LETTORI 
SU ARGOMENTI DI CONSULENZA. È CURATA DALLA NOSTRA REDAZIONE CHE PUBBLICA 
LE LETTERE RITENUTE DI INTERESSE GENERALE PER I LETTORI. 

Scrivete a: LIST, Via Flavio Stilicone 111- 00175 Roma 


Echo off senza ...eco! 


Gentile redazione di LIST, vorrei sottoporvi 
un problema che mi si è presentato durante 
la creazione dei miei file Batch. 

È possibile evitare che la scritta ECHO OFF 
venga visualizzata durante l'esecuzione dei 
file batch che contengono questa istruzio¬ 
ne? 

Attilio Cenaci - Foggia 

Il quesito è subito risolto: è sufficiente inseri¬ 
re il simbolo (chiocciolina) prima del 
comando batch ECHO OFF. Ad esempio: 
@Echo Off 
Prompt $p$g 

Mandato in esecuzione, non verrà visualiz¬ 
zato assolutamente nulla, neanche il co¬ 
mando Echo Off che prima, invece, appari¬ 
va sullo schermo. C’è da precisare però, 
che questo piccolo trucco funziona sola¬ 
mente con la versione 3.30 del DOS e le suc¬ 
cessive. 


Consigli per gli acquisti 

Sono un possessore del PC128S Olivetti 
Prodest , e sono interessato all’acquisto di 
un Modem per quest'ultimo. Potreste fornir¬ 
mi delle informazioni sul più economico 
Modem in commercio e su un buon softwa¬ 
re di comunicazione per il PC128S? 

Nicola Maggio - Napoli 

Le informazioni che la interessano per 
quanto riguarda l’acquisto del Modem, so¬ 
no dettagliatamente elencate sul primo nu¬ 
mero di Modem & Telecomunicazioni Feb¬ 
braio/Marzo 1989 a pag. 72. L’elenco ripor¬ 
ta anche un prezzo approssimativo per 
ogni marca e modello con i rispettivi stan¬ 
dard. Comunque la nostra esperienza in ta¬ 
le campo ci spinge a consigliarle uno Smar- 
TEAM 300-1200 Hayes, ad un prezzo che si 
aggira intorno alle 400.000, altrimenti un 
buon DIGICOM, oppure un DISCOVERY 


1200, per poi arrivare al modello SMART 
V21-V22. Abbiamo citato questi modelli per¬ 
ché risultano essere i Modem esterni più 
venduti a prezzi modici (tra le 400 e le 
600mila lire). 

Per quanto riguarda il software di comuni¬ 
cazione, la Redazione ne ha uno disponibi¬ 
le, si chiama BETACOMM e può tranquilla¬ 
mente ordinarlo tramite vaglia postale di 
35.000 lire. Siamo comunque a sua disposi¬ 
zione per ulteriori informazioni in merito. 


Un parere tecnico... 

Assiduo lettore della Vostra splendida rivi¬ 
sta, unica che chiarisca i problemi dello 
standard MSX , ormai snobbato dalla mag¬ 
gior parte dei rivenditori di computer, soddi¬ 
sfattissimo possessore di un TOSHIBA HX- 
51 MSX1 completo di floppy e stampante, 
volendo passare al MSX2, chiedo un consi¬ 
glio tecnico per l'eventuale acquisto del 
TOSHIBA FS TM1 MSX2. 

Auspico l'apertura sulla rivista di una rubri¬ 
ca che tratti di problemi, innovazioni tecni¬ 
che e utility del sistema. 

Gianfranco Brocchi - Perugia 

L’idea di passare ad un sistema MSX2 è 
piuttosto accattivante, viste le caratteristi¬ 
che del sistema (discreto quantitativo di 
memoria, processori video e sonoro molto 
sofisticati, possibilità di far girare i .pro¬ 
grammi nati per il CP/M 2.2 come il Word- 
Star ed il DBase2). 

Unico neo del sistema è la difficoltà, alme¬ 
no in Italia e forse in Inghilterra, di reperire 
del buon software originale, forse proprio 
perché il sistema viene “snobbato" dalla 
maggior parte dei rivenditori. 

Siamo comunque al corrente del fatto che 
in Francia, Spagna e Germania si trova sia 
il software che l’hardware per questi siste¬ 
mi, spesso a prezzi non eccessivi (a parte 
qualche eccezione). In Francia abbiamo 
l’MSX VIDEO CENTER (89 bis, Rue de Cha- 
renton F-75012 Paris-France), in Spagna 
abbiamo LASP (Alfonso 1,28 50003 Zarago- 


za-Spagna) dove sono disponibili espan¬ 
sioni di memoria e vari programmi come il 
DOS 2.0, in Germania abbiamo l’HSH COM- 
PUTERTRIEB GmbH (An der Umflut, 15 D- 
4715 Davensberg - Repubblica Federale 
Tedesca) che importa direttamente dal 
Giappone sia il software che l’hardware. 
Proprio qui dovrebbe essere disponibile un 
MSX2+ a partire dall’inizio di settembre, di 
cui vi accenno le caratteristiche tecniche ed 
un Hard Disk SCSI con interfaccia per MSX 
e DOS 2.20 con la possibilità di gestire sot¬ 
to-directory ed altre utility di sistema 
La caratteristica peculiare di questo model¬ 
lo consiste nella CPU Z80B. “switchabile” 
da 3.58 a 6 MHz (con un incremento della 
velocità di elaborazione di circa il 70%). 

I cataloghi potranno essere richiesti diretta- 
mente agli indirizzi sopra citati. 


PCI28 e radiotecnica 


Il vostro programma “ CAB disegno elettro¬ 
nico” per PC128 ha destato la mia curiosi¬ 
tà. Desidererei sapere se è possibile elabo¬ 
rare un programma che sia in grado di ela¬ 
borare i simboli impiegati nel disegno ra¬ 
diotecnico. Vorrei inoltre sapere se è dispo¬ 
nibile un programma che elabori le piste del 
circuito stampato, relativo ad un determi¬ 
nato circuito elettrico. 

Ferruccio Holler - Trieste 

Il programma CAE permette, genericamen¬ 
te, di spostare oggetti grafici sullo schermo, 
posizionarli, stamparli. 

Cambiando la forma dei caratteri grafici im¬ 
plementati è possibile disegnare qualsiasi 
cosa. 

Per quanto riguarda i simboli radioelettrici, 
il set di CAE ne contiene moltissimi. Presen¬ 
teremo probabilmente in futuro un genera¬ 
tore di caratteri idoneo a modificare il set di 
CAE. 

Approfittiamo dell’occasione per ricordare 
che se il programma CAE da caricare è sot¬ 
to forma di file binario (.BIN), bisogna utiliz¬ 
zare il comando LOADM, preceduto dalle 
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relative CLEAR indicate nell’articolo relati¬ 
vo, mentre per la versione BASIC (.BAS) sa¬ 
rà sufficiente un LOAD, seguito dal coman¬ 
do RUN. 


Viag gio nel PC 128 _ 

Sono possessore di un Olivetti Prodest 
PC128 e vorrei porgervi alcune domande. 
Quale modello, tra gli Olivetti Prodest, pos¬ 
siede una grafica simile a quella di un com¬ 
puter Amiga? Come mai il comando DRAVi 
non funziona e produce un "ERROR 2"? 
Sul manuale del PC128 c'è scritto che la 
memoria ROM è ampliabile. mentre non lo è 
la RAM: a me sembra alquanto strano, con¬ 
fermate quanto scritto? 

Purtroppo ho riscontrato alcuni errori nel 
programma "SOUND SAMPLER", in quan¬ 
to nelle linee 2001 , 2003 e 2008 ci sono dei 
GOTO riferiti a linee inesistenti. Potreste 
correggere tali errori? 

Un'ultima domanda: pubblicherete ancora 
le "raccolte di LIST"? 

Patriek Bugalossi - Sasso Marconi (BO) 

Purtroppo nessun computer della Olivetti 
Prodest possiede una grafica come quella 
di Amiga, tranne il PCI, al quale è possibile 
collegare schede grafiche come la VGA, 
che hanno risoluzioni anche migliori di 
quella dell’Amiga, ma il loro costo, per non 
parlare di quello del monitor idoneo, supera 
addirittura il prezzo del computer stesso. 
Per quanto riguarda l’istruzione DRAW, l’er¬ 
rore numero 2 da Lei riscontrato corrispon¬ 
de al classico “SYNTAX ERROR”, dovuto al 
fatto che questa istruzione non è imple¬ 
mentata nel BASIC 1. 

E non si tratta di un caso isolato: DENSITY e 
UNMASK si comportano in maniera analo¬ 
ga. Probabilmente queste parole chiave 
‘‘fantasma’’ sono predisposte per future 
espansioni del sistema operativo. 

Il microprocessore del PCI28 è in grado di 
indirizzare direttamente, tra ROM e RAM, 
solo 64 Kb di memoria. 

Quindi i 128 Kb di RAM e i 64 Kb di ROM 
vengono indirizzati in modo indiretto, cioè 
comutati. Con questo sistema si potrebbe 
tranquillamente espandere la memoria ol¬ 
tre il Mb. 

Nel PCI 28 non è possibile espandere facil¬ 
mente la RAM, non essendo previsto dalla 
Casa, mentre la Rom può essere estesa me¬ 
diante l’inserimento di cartucce. 

Ci scusiamo con i lettori per gli errori nel 
programma “Sound Sampler”, non elimi¬ 


nati in fase di collaudo. Le correzioni da ap¬ 
portare consistono nel sostituire i GOTO 
311 delle linee 2001 e 2003 con dei GOTO 
2000, il GOTO 323 della linea 2008 con un 
GOTO 2007, e l’AND nell’istruzione IF della 
linea 2001 con un OR. 

Infine, per quanto riguarda le raccolte di 
LIST, visto l’estremo successo riscosso dal¬ 
l’iniziativa, la risposta non può che essere 
affermativa. 


Il ... calcio al computer 

Sono un vostro appassionato lettore, e ho 
trovato dei problemi nel far girare il pro¬ 
gramma "CALCIO CLASSIFICA" per 
MS-DOS, da voi pubblicato. Dopo aver digi¬ 
tato correttamente il listato ed aver fornito il 
comando di RUN, non ottengo che un mes¬ 
saggio di "IIlegal function cali” alla linea 
45. 

Potreste aiutarmi a risolvere questo proble¬ 
ma ? 

Gianfranco Ricci - Nettuno (RM) 

Il malfunzionamento da lei riscontrato è do¬ 
vuto al fatto che il programma richiede una 
dimensione dei RECORD dell’archivio, su¬ 
periore a quella disponibile per default nel 
GW-BASIC (anche se su alcune macchine 
non sussitono problemi). 

Il programma può comunque essere utiliz¬ 
zato tranquillamente: è sufficiente lanciare 
l’interprete GW-BASIC utilizzando il se¬ 
guente accorgimento. 

Digitate da DOS il comando GWBASIC 
/S225 quindi, entrati in ambiente Basic, ca¬ 
ricate come al solito il programma e lancia¬ 
telo: vedrete che tutto funzionerà a dovere! 
Il valore 225 corrisponde al prodotto NI*25 
che trovate alla linea 45, nell’istruzione 
OPEN. Tenete conto di questo fatto nel ca¬ 
so vogliate incrementare il numero di squa¬ 
dre. 


PC128S e MS-DOS 


Sono in possesso di un computer IBM com¬ 
patibile e hanno destato il mio interesse 
due programmi pubblicati sul numero di 
Luglio/Agosto di List: "Math-Pack" e “ Con¬ 
vertitore Ascii". 

Ho provato a farli girare sul mio computer, 
ma producono una tale mole di errori (pra¬ 
ticamente ad ogni linea del listato) che mi 
chiedo in quale linguaggio siano stati scrit¬ 
ti! 

È possibile averli in Basic esteso? 

Enrico Zoli - Faenza 

Beh, effettivamente deve essere stata 
un'impresa piuttosto ardua provare a far 
girare due programmi per PC128S su un 
compatibile IBM! 

L’inserto programmi di List è strutturato in 
modo che ogni modello di macchina abbia 
dei listati “cuciti" su misura, proprio perché 
è impossibile progettare un programma in¬ 
teressante (dotato, quindi, di una certa 
complessità) che possa girare indifferente¬ 
mente su qualunque computer. 

Non ci è certo d’aiuto la grande varietà di 
"dialetti" Basic parlati dagli Home Compu¬ 
ter delle varie Case. 

Se poi si considera che quasi tutti i pro¬ 
grammi da noi pubblicati accedono con 
istruzioni PEEK e POKE direttamente alla 
memoria del computer, alla scheda grafica, 
al processore sonoro o fanno addirittura 
uso di routine scritte in linguaggio macchi¬ 
na, ci si rende subito conto che adattare un 
listato ad una macchina diversa da quella 
per la quale è stato concepito, è un’impresa 
assurda: conviene riscrivere da capo l’inte¬ 
ro programma (ma non è detto che sia pos¬ 
sibile ottenere ancora le stesse prestazioni). 
Non ci resta quindi che augurarle "buon la¬ 
voro", invitandola ad inviarci le sue conver¬ 
sioni di programmi da PC128S a MS-DOS. 


Inviando 10 prove di acquisto* della rivista LIST ’89 
riceverai in regalo 
l’indispensabile raccoglitore 
della tua biblioteca software LIST. 


rgimenti da seguire per un cor- 

>er funzionare con il BASIC 128 
lell'accensione della macchina. 

ini itor 


Ritaglia e spedisci a fine anno le IO prove di acquisto 
con relativo nome e cognome e indirizzo a: 

EDICOMP s.r.l. Via Flavio Stilicone 111 - 00175 ROMA 
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Hardware richiesto: 1 floppy + hard disk 
Sistema operativo richiesto: MS-DOS 


L’ARS, è un linguaggio che permette al programmatore di 
realizzare senza fatica intere procedure di Gestione, con tutti 
gli archivi dati necessari; l'ARS, infatti, consente all’utente 
molteplici possibilità di creare programmi di qualsiasi genere, 
con inserimento, variazione, cancellazione e visualizzazione 
dei dati, per poi passare alle ricerche e stampe che vuole 
costruire in piena libertà. 

Il linguaggio ARS può essere utilizzato sia dall’azienda per 
ridurre i costi di realizzazione del software, che dal singolo 
amatore che intenda imparare a programmare. 

I vantaggi sono immediati: 

1. La possibilità di risolvere anche i più difficili problemi in 
maniera estremamente intuitiva, grazie alla peculiarità che 
l’ARS offre: 

— di utilizzare un editor scritto in ITALIANO, 

— di possedere un’estrema flessibilità nella costruzione 
degli archivi, i cui campi assumono automaticamente le 
dimensioni di quanto in essi contenuto. 

2. Programma con velocità di un compilato, pur rimanendo 
interpretato, con il conseguente vantaggio di effettuare 
modifiche sui programmi stessi in tempi reali. 

3. Gestione delle routines per mezzo di chiamate di 
macroistruzioni in automatico. 

4. Ordinamento degli archivi in automatico, secondo il 
codice ASCII. 

Da ciò consegue una estremamente versatile utilizzazione dei 
programmi scritti in ARS, anche per la costruzione di 
progetti molteplici e tra loro differenti. 


Spett. EDICOMP S.r.l. desidero ricevere su Floppy da 5% □ da 3 Va □ 

ARS primo linguaggio di programmazione completamente in italiano 

a L. 120.000 (Iva e spese di spedizione comprese). 


□ Invio in allegato assegno bancario di. L. 120.000 intestato a Edicomp S.r.l. 

□ Ho effettuato versamento di L. 120.000 tramite vaglia postale a Edicomp S.r.l. 
effettuato versamento postale di L. 120.000 su c/c n° 32109001 intestato a 

mero di Modem & Teleco|| CO mp srl - Via Flavio Stilicone ili - 00175 Roma 


ARS 

il 1° linguaggio 
completamente 
in italiano 


braio/Marzo 1989 a pag. 79 
ta anche un prezzo api 
ogni marca e modello coi 
dard. Comunque la nostra 

Città 


Cognome . 

. C.A.P. ... 

. Telefono 


Edicomp S.r.l. - Via Flavio Stilicone 111 - 00175 Roma 


Per riceverlo compila e spedisci il tagliando, qui sopra riprodotto. 
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A UTOSPRITt 


Per chi va sempre di corsa e per 
i più pigri, ecco un generatore di 


sprite che fa tutto da solo! 


Olivetti PRODEST 

PC 128 


di FILIPPO QUARTA 


utosprite si differenzia da altri programmi simili per¬ 
ché è in grado di creare le linee Basic necessarie alla 
definizione di uno sprite, in modo assolutamente au¬ 
tomatico. 

Non è richiesto, quindi, l'intervento dell’utente per la 
convalida di ogni linea generata. 

Dato il RUN, verrà richiesto il numero di sprite che si desidera ela¬ 
borare (consiglio di inserire sempre il valore 128), per poi passare 
alla pagina di creazione. 

Nella parte alta di quest’ultima saranno costantemente visualizzati 
il numero GR$ (corrispondente al carattere che si sta creando) ed il 
numero di linee Basic generate fino a quel momento. 

Nella parte bassa dello schermo compariranno tre finestre: una di 
creazione degli sprite (PROFILO), una di visualizzazione ed un’al¬ 
tra di HELP, che rammenta la funzione dei tasti di controllo: 


i TASTI CURSORE muovono il cursore nella griglia; 

ENT attiva/disattiva i pixel; 

CLS pulisce la griglia e la finestra di visualizzazione; 

FI visualizza i codici decimali; 

F2 crea la linea Basic desiderata, a partire dalla linea 2010, con in¬ 
cremento di 10; 

F3 ruota di 90 gradi il profilo dello sprite; 

F4 inverte i bit dello sprite (reverse). 

Premendo F5 si può uscire dal ciclo di creazione, prima che sia stato 
completato. In questo caso, se almeno una linea Basic è stata creata, il 
computer visualizzerà una stringa che simula una linea 2000, conte¬ 
nente un’istruzione CLEAR. L'utente dovrà convalidare questa linea, in 
modo da sostituirla a quella involontariamente creata. 

Per finire, ecco alcuni piccoli accorgimenti da seguire per un cor¬ 
retto funzionamento di Autosprite: 

- il programma è stato concepito per funzionare con il BASIC 128 
MICROSOFT selezionabile, all’atto dell’accensione della macchina, 
con l'opzione 1 del menu iniziale 

- prima di caricare Autosprite, spegnete e riaccendete il computer 

- non rinumerate e modificate il programma, per evitare imprevedi¬ 
bili conseguenze 

- prima di fornire il RUN, se sono già state create delle linee Basic, 
eliminatele con il comando DELETE 2000- 
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PROGRAMMI 


10 REM *** AUTOSPRITE *** 

20 REM *** Versione Basic 128 *** 

30 REM *** (C) QUARTA FILIPPO *** 

40 REM *** EDIZIONI LIST 1989 *** 

50 ’ 

60 CLEAR:PUNT=97999-FRE(2)+24568:CLS: SCR 
EEN 4,6,1:BANK 1:DIM CHAR$(8,8> 

70 » 

80 ’ INPUT NUMERO SPRITES 
90 1 

100 C(0) = 128 :C(1)=64 :C(2)=32:C<3) = 16:C<4 
) =8 :C(5)=4 :C(6)=2:C(7) = 1 
110 RIG=2000:SP=0 
120 GOSUB 1210 

130 POKE PUNT,0:PUNT=PUNT+1:POKE PUNT,0 
140 FRAS=",,"+ NUMS 

150 PUNT=PUNT+1:POKE PUNT,LEN(FRAS)+6 
160 PUNT=PUNT+1:PKE PUNT,INT(RIG/256):P 
UNT=PUNT+1:POKE PUNT,RIG-256*INT(RIG/256 
> 

170 PUNT=PUNT+1:POKE PUNT,174 

180 FOR MM=1 TO LEN(FRAS>:PUNT=PUNT+1: PO 

KE PUNT,ASC(MIDS(FRAS,MM,1)):NEXT MM 

190 PUNT=PUNT+1:POKE PUNT,0:POKE PUNT+1, 

0:POKE PUNT+2,0:POKE PUNT+3,0 

200 RIG=RIG+10 

210 PLAY n L4DOREDO" 

220 * 

230 1 SCHERMO DI CREAZIONE 
240 • 

250 BOX <0,0)-(319,199): BOX(4,4)-(315,195 
) 

260 LOCATE 2,1;PRINT "Numero GRS(n) :";S 
P 

270 LOCATE 2,3:PRINT "Numero linee basic 
create :";LIN 

280 BOX(3*8,8*8)-(12*8+7,17*8+7): COLOR , 
1:BOXF(4,9)-(11,16)CHRS(32): COLOR 4,6 
290 BOX (14*8, 12*8)- (16*84-7, 14*8+7) 

300 BOX(18*8,8*8)-(35*8+7,19*8+12):BOX(l 
8*8-3,8*8-3)-(35*8+10,19*8+15) 

310 LOCATE 4,6: PRINT "PROFILO’ 1 
320 LOCATE 20,6:PRINT "TASTI FUNZIONE" 
330 LOCATE 19,9:COLOR 1:PRINT "CLS 
COLOR 4:PRINT "CANCELLA" 

340 LOCATE 19,11:COLOR 1:PRINT "FI 
"; : COLOR 4:PRINT "CODICI" 

350 LOCATE 19,13:COLOR 1:PRINT "F2 
";:COLOR 4:PRINT "BASIC" 

360 LOCATE 19, 15: COLOR 1:PRINT "F3 
"; : COLOR 4 :PRI NT "RUOTA" 

370 LOCATE 19,17:COLOR 1:PRINT "F4 
";:COLOR 4:PRINT "INVERTE" 

380 LOCATE 19,19:COLOR 1:PRINT "F5 
";:COLOR 4:PRINT "EXIT" 

390 ’ 

400 ’ PROGRAMMA PRINCIPALE 
410 ’ 

420 X=4:Y=9:COLOR 3,1:POKE 8217,8 


430 GOSUB 570 
440 DO 

450 S$=INPUTS(1) 

460 IF SS=CHRS(8) THEN 
630:X=X-1:GOSUB 570 
470 IF S$=CHR$(9) THEN 
B 630:X=X+1:GOSUB 570 
480 IF SS=CHR$(10) THEN 
UB 630:Y=Y+1:GOSUB 570 
490 IF SS=CHRS(11) THEN 
B 630:Y=Y-1:GOSUB 570 
500 IF S$=CHRS(13) THEN 
510 IF SS=CHRS(12) THEN 
520 IF S$=CHRS(193) THEN 
530 IF S$=CHRS(194) THEN 
SUB 890:PLAY"L505SI" 

540 IF SS=CHRS(195) 

B 1450:PLAY"L2FA" 

545 IF SS=CHR$(196) 

B 1600:PLAY"L2FA" 

550 IF SS=CHRS(197) 

560 LOOP 
570 ’ 

580 
590 
600 
610 
3, 1 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 


IF X>4 THEN GOSUB 

IF X<11 THEN GOSU 

IF Y<16 THEN GOS 

IF Y>9 THEN GOSU 

GOSUB 670 
GOSUB 830 
GOSUB 730 
PLAY"L505SI" : GO 


THEN PLAY"L2FA":GOSU 


THEN PLAY"L2FA":GOSU 


THEN GOTO 1110 


STAMPA CURSORE 


CO= 

IF 


: SCREEN (X, Y) 
CO=127 THEN 


COLOR 1,3 ELSE COLOR 


PSET(X,Y)"+":COLOR 3,1:RETURN 


RIPRISTINA SFONDO 


PSET(X,Y)CHRS(CO): RETURN 


PIXEL ON/OFF 


A=X-4:B=Y-9 

IF CO=127 THEN CO=32:PSET(15*8+A,13* 
8+B),-7:COD(B)=COD(B)-C(A) ELSE CO=127:P 
SET(15*8 + A,13*8+B),4 :COD(B)=COD(B)+C(A) 
720 GOSUB 610:RETURN 
730 ’ 

740 ’ VISUALIZZA CODICI 
750 ’ 

760 GOSUB 630:COLOR 4,6:LOCATE 2,22:PRIN 
T; 

770 FOR C=0 TO 7 

780 PRINT RIGHTS(STRS(COD(C)),LEN(STRS(C 
OD(C)))-l); 

790 IF C<7 THEN PRINT 
800 NEXT C 

810 DO: IF INKEYSO"" THEN EXIT ELSE LOOP 
820 LOCATE 2,22 f*RINT STRING$ (35,32) : COL 
OR 3,1:GOSUB 570;RETURN 
830 ’ 

840 ’ PULISCE PROFILO 
850 ’ 

860 FOR MM=0 TO 7:COD(MM)=0: NEXT MM 

870 BOXF(4,9)—(11,16)" ":BOXF(15*8,13*8) 

-(15*8+7,13*8+7),-7 

880 X=4:Y=9:GOSUB 570:RETURN 

890 ’ 
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PROGRAMMI 


900 * MEMORIZZA LINEE DEF GRS (n) 

910 1 

920 GOSUB 630:POKE PUNT,0:PUNT=PUNT +1: PO 
KE PUNT,0 

930 FRA*-”("+RIGHTS (STRS <SP>,LEN(STRS(SP 
> )-l)+")=" 

940 FOR MM=0 TO 7 

950 FRAS=FRAS+RIGHTS(STRS(COD(MM)),LEN(S 
TRS(COD(MM)) )-l) 

960 IF MM<7 THEN FRAS=FRAS+", M 
970 NEXT MM 

980 PUNT=PUNT+1:POKE PUNT,LEN(FRAS)+9 
990 HI=INT(RIG/256 ) :L0=RIG-256*INT(RIG/2 
56) 

1000 PUNT=PUNT + 1:POKE PUNT,HI :PUNT=PUNT+ 
1:POKE PUNT,LO 

1010 PUNT=PUNT + 1:POKE PUNT,169:PUNT=PUNT 
+1:POKE PUNT,32:PUNT=PUNT+1:POKE PUNT,25 
5 :PUNT=PUNT+1:POKE PUNT, 153 
1020 FOR MM=1 TO LEN(FRAS ) 

1030 PUNT=PUNT+1:FR=ASC(MIDS(FRAS, MM,1)) 
1040 IF FR=61 THEN FR=212 
1050 POKE PUNT,FR 
1060 NEXT MM 

1070 PUNT=PUNT+1;POKE PUNT,0:POKE PUNT+1 
, 0 ;POKE PUNT+2,0:POKE PUNT+3,0 
1080 COLOR 4,6:SP=SP+1 :IF SP=NUM THEN CL 
S:COLOR 4,6:PRINT "Linee basic in memori 
a.Buon lavoro !": END ELSE LOCATE 2,1:PRI 
NT "Numera GRS(n) :";SP 

1090 LIN=LIN+1:LOCATE 2,3:PRINT "Numero 
linee basic create :";LIN 

1100 RIG=RIG+10:COLOR 3 , 1 :GOSUB 570;RETU 
RN 

1110 1 

1120 ' EXIT FROM AUTOSPRITE 
1130 » 

1140 COLOR 4,6:CLS 

1150 IF LIN=0 THEN PRINT "Nessuna linea 
in memoria. ": DELETE 2000:END 
1160 PRINT "CLEAR della linea 2000 non c 
orretta PRINT 

1170 PRINT "convalida la nuova linea 200 
0. " 

1180 PRINT:PRINT "2000 CLEAR,RIGHTS(S 
TRS(LIN),LEN(STRS(LIN))-l> 

1190 PRINT 
1200 END 
1210 • 

1220 ’ PRESENTANZIONE ED INPUT SPRITES 
1230 • 

1240 COLOR ,2:BOXF(0,0)-(39,14)" " 

1250 FRAS="AUTOSPRITE":FORT=19 TO 10 STE 
P-l 

1260 FORR=1 TO 25 :NEXTR:LOCATE T+LEN(FRA 
S)*2,4:PRINT " ” 

1270 COLOR 1:ATTRB 1,1; LOCATE T,4,0:PRIN 
T FRAS 

1280 NEXTT:COLOR 0:ATTRB 0,0 

1290 FRAS="(C) QUARTA FILIPPO - LECCE" 

1300 FORT=0 TO 6 


1310 LOCATE T,7:PRINT FRAS 
1320 FORR=1 TO 25:NEXTR: LOCATE T,7:PRINT 
" ":NEXTT 

1330 LOCATE T,7:PRINT FRAS 

1340 FRAS="EDICOMP LIST 1989":FORT=39-LE 

N(FRAS) TO 12 STEP-1 

1350 FORR=1 TO 22:NEXTR: LOCATE T,10:PRIN 
T FRAS 

1360 FORR=1 TO 22:NEXTR:LOCATE T+LEN(FRA 

S),10:PRINT " ":NBXTT 

1370 LOCATE T,10:PRINT FRAS+" " 

1380 BOX(0,0)-(319,15*8),0:BOX(4,4)-(315 
, 15*8-4),0:BOX(8,8)-(311,15*8-8) , 0 
1390 LOCATE 1,16:COLOR 1,6:PRINT "Benven 
uto ! ! !": COLOR 4 

1400 LOCATE 1,18:INPUT "Quanti sprites v 
uoi creare : ",NUMS 

1410 NUM=VAL(NUMS):IF NUM<1 OR NUM>128 T 
HEN GOTO 1400 

1420 LOCATE 1,20,0:PRINT "Sei sicuro (S/ 
N>":SS=INPUTS(1):IF S$<>"S" AND SS<>"s" 
THEN LOCATE 1,20:PRINT CHRS(24): GOTO 140 
0 

1430 LOCATE 1,22;COLOR 1:PRINT "PREMI PE 
R LA PAGINA DI CREAZIONE.":COLOR 4 
1440 SS=INPUTS(1):CLS:RETURN 
1450 1 

1460 ' ROTAZIONE PROFILO 
1470 ’ 

1480 GOSUB 630:XRO=4:YRO=9:FOR B=0 TO 7: 
FOR A=0 TO 7:CHARS(A,B)=CHRS(SCREEN(XRO+ 
A, YRO+B)):NEXTA:COD(B)=0: NEXTB 
1490 GOSUB 1500:GOSUB 570;RETURN 
1500 • 

1510 • ROTAZIONE 
1520 • 

1530 FOR B=0 TO 7:VKL=0: LOCATE XRO,YRO+B 
:FOR A=7 TO 0 STEP-1:PRINT CHARS(B,A); 
1540 IF CHARS(B,A)=CHR$(127) THEN PSBT(1 
5*8+7-A, 13*8+B),4 :COD(B>=COD(B)+C(VKL) E 
LSE PSET(15*8+7-A,13*8+B),-7 
1550 VKL=WKL+1:NEXTA:NEXTB 
1560 RETURN 
1600 1 

1610 • INVERTE PROFILO 
1620 ' 

1625 GOSUB 630 
1640 FOR V=0 TO 7 
1650 FOR Q=0 TO 7 
1655 W=SCREEN (4+Q, 9+V) 

1660 IF VV=127 THEN W=32 : PSET ( 15*8+Q, 13 
*8+V),-7: COD(V)=COD(V)-C(Q) ELSE W=127: 
PSET (15*8+Q, 13*8-* W) ,4: COD(V)=COD(V)+C(Q) 
1670 LOCATE 4+Q, 9 + V: PRINT CHRS (W) : NEXT 
Q 

1680 NEXT W 

1690 GOSUB 570:RETURN 

1997 ' 

1998 • LINEE AUTOCREATE DAL PC 128 

1999 • 
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PROGRAMMI 

Olivetti PRODEST 

BASIGRAPH è un generatore di auto- 

PC 128 


programmi grafici che trasforma in tempo reale le operazioni del- 


l'utente in istruzioni basic perfettamente funzionanti, senza hi so¬ 


di FILIPPO QUARTA gno di convalida e cambiamenti di pagina 


BasigrapH 


anciato il programma compariranno due schermate 
introduttive e verranno richiesti i colori dello scher¬ 
mo grafico che BASIGRAPH memorizzerà con la re¬ 
lativa istruzione SCREEN. 

A questo punto si passerà alla pagina di creazione 
in cui sarà visualizzato il cursore lampeggiante che potrà essere 
mosso con il JOYSTICK (porta 1). Premendo il pulsante FIRE verrà 
attivato il tratto che potrà essere disattivato premendo nuovamente 
il pulsante FUOCO. Alle volte disegnando succederà che il tratto si 
stacchi automaticamente perché la linea che il PC128 sta memoriz¬ 
zando avrà raggiunto la lunghezza massima ma non appena il 
computer terminerà questa operazione il disegno potrà essere 
continuato. 

Per cambiare il colore del cursore e, quindi, del tratto bisognerà 
premere il tasto ACC. 

Le funzioni grafiche implementate sono 4 e il funzionamento è 
uguale a quello di Screen Editor: 

CERCHI (tasto C): traccia dei cerchi. Si confermano prima il centro 
e poi il punto che delimita il raggio col FIRE e il cerchio verrà dise¬ 
gnato 

LINEE (tasto L): si confermano i vertici e la linea verrà tracciata 
BOX (tasto B): si confermano i vertici e il riquadro verrà disegnato 
PAINT (tasto P): riempie un’area. Si sposta il cursore nella zona da 


colorare e premendo il FIRE questa viene riempita del colore del tratto. 


COME CANCELLARE 

Esistono due modi per cancellare: 

1) utilizzare la funzione UNDO (tasto U) 

2) selezionare la gomma (tasto G). 

La funzione UNDO cancella l'ultima operazione effettuata. 

Il tasto G permette di selezionare la gomma o la penna (default). 
Selezionata la gomma (evidenziato dall’emissione di un suono 
acuto) premendo il FIRE viene attivata la memorizzazione e il cur¬ 
sore cancella i pixel sul percorso. Per disattivare la memorizzazione 
agire di nuovo sul tasto FUOCO, mentre il tasto G disabilita l’opzio¬ 
ne gomma ed un suono grave conferma l’attivazione della penna. 
N.B.: Se si seleziona una funzione grafica con la gomma attiva que- 
st’ultima viene automaticamente disattivata. 

FINE PROGRAMMA 

Il tasto CLS (Shift-HOME) permette di uscire dallo schermo di crea¬ 
zione. Il programma autocreato può essere listato con LIST 3000-. 



10 REM *** BASIGRAPH *** 

20 REM *** Versione Basic 128 *** 

30 REM *** (C) QUARTA FILIPPO *** 

40 REM *** XXX 

50 REM XXX ED.LIST 1989 *** 

60 1 

70 CLEA^ :PUNT 3 97999-FRE(£)+24568 : BANK 1 

80 DATA U, E, R, H, D, G, L, N 

90 FOR KK=1 TO 8 : READ MOVS<KK) : NEXT KK 

100 GOSUB 1900 

110 • 

120 POKE 8217,8 

130 LOCATE 0,0:COLOR 6:PRINT "IMPOSTA I 
COLORI DELLO SCHERMO : M : COLOR 7 
140 LOCATE 0,3:INPUT "Cornice (0/15) : 

",BORD:IF BORD<0 OR BORD>15 THEN 140 
150 LOCATE 0,5:INPUT "Sfondo (0/15) 


94 


",SFOND:IF SFOND<0 OR SFOND>15 THEN 150 
160 LOCATE 0,7:INPUT "Tratto (0/15) : 

",TR: IF TR<0 OR TR>15 THEN 160 
170 LOCATE 0,10,0:COLOR 6:PRINT "VA BENE 
(S/N)" 

80 S$= INPUTS ( 1 ) : IF SSO"S" AND SSO"s" 
THEN COLOR 7:LOCATE 0,10:PRINT CHR$(24): 
GOTO 140 
190 LIN=3000 

200 BORDS=RIGHTS(STRS(BORD),LEN(STRS(BOR 
D) )jrl> 

210 SFONDS=RIGHTS(STRS(SFOND),LEN(STRS(S 
FOND))-l) 

220 TR$=RIGHTS(STRS(TR),LEN(STRS(TR))-l) 
230 CLS:SCREEN TR,SFOND,BORD 
240 POKE PUNT,0:PUNT=PUNT+1:POKE PUNT,0 
250 FRAS=" "+TRS+","+SFONDS+","+BORDS 
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260 PUNT=PUNT+1:POKE PUNT,9 + LEN(FRA$) 

270 PUNT=PUNT+1: POKE PUNT, INT(LIN/256) 
280 PUNT=PUNT+1:POKE PUNT,LIN-256*INT(LI 
N/256) 

290 PUNT=PUNT+1:POKE PUNT, 157:PUNT=PUNT+ 
1:POKE PUNT,58:PUNT=PUNT+1:POKE PUNT,255 
:PUNT=PUNT+1:POKE PUNT,164 
300 FOR KK=1 TO LEN(FRAS) 

310 PUNT=PUNT+1:POKE PUNT, ASC(MIDS(FRAS, 

KK,1)):NEXT KK 

320 PUNT=PUNT+1 : LIN=LIN+10 

330 FOR KK=0 TO 3:POKE PUNT+KK,0 :NEXTKK 

340 • 

350 1 PROGRAMMA PRINCIPALE 
360 • 

380 X=150:Y=100:CO=POINT(X,Y) 

390 DO:PSETCX, Y) , TR 

4 00 J0=STICK(0):SP=STRIG<0):SS=INKEYS 
410 IF JO=l THEN IF Y>0 THEN GOSUB 630:Y 
=Y-1:CO=POINT(X, Y) : MOVE=l 
420 IF J0=2 THEN IF X<319 AND Y>0 THEN G 
OSUB 630: X=X+1: Y=Y-1:CO=POINT(X,Y):MOVE= 
1 

430 IF JO=3 THEN IF X<319 THEN GOSUB 630 
:X=X+1:CO=POI NT(X,Y):MOVE=l 
440 IF J0=4 THEN IF X<319*. AND Y<199 THEN 
GOSUB 630: X=X+1: Y=Y+1:CO=POINT(X, Y) : MOV 
E=1 

450 IF J0=5 THEN IF Y<199 THEN GOSUB 630 
:Y=Y+1:CO=POINT(X,Y):MOVE=l 
460 IF J0=6 THEN IF Y<199 AND X>0 THEN G 
OSUB 630:X=X-1:Y=Y+1:CO=POINT(X,Y>:MOVE= 
1 

470 IF J0=7 THEN IF X>0 THEN GOSUB 630:X 
=X-1:CO=POI NT(X,Y):MOVE=l 
480 IF J0=8 THEN IF X>0 AND Y>0 THEN GOS 
UB 630:X=X-1 :Y=Y-1:CO=POINT(X,Y):MOVE=l 
485 PSETCX,Y),TR 

500 IF SP AND EFLAG THEN RETURN ELSE IF 
EFLAG THEN GOTO 610 

510 IF SP THEN PLAY”L205SI M : IF PE=0 THEN 
PE=1 ELSE PE=0:MOVS=MOVS+CHRS(34) : HFLAG 
=0:GOSUB 770 

520 IF PE=1 THEN GOSUB 680:GOTO 610 
530 IF SS=CHRS(22) THEN TR=TR+1:IF TR=15 
THEN TR=0 

540 IF SS=”C” THEN PLAY”L105D0REMI” : GOSU 
B 1010:RET=0:G0MMA=0 

550 IF SS=”L” THEN PLAY”L105D0REMI”:GOSU 
B 1210:RET=0:G0MMA=0 

560 IF SS=”P” THEN PLAY”L105D0REMI”:GOSU 
B 1410:RET=0: G0#MA^£r 

570 IF SS=”B” THEN PLAY”L105D0REMI”:GOSU 
B 1580:RET=0:G0MMA=0 

580 IF SS=”U” THEN PLAY”L105D0REMI”:GOSU 
B 1800:GOSUB 3000:CO=POINT(X, Y) : RET=1 
590 IF S$=”G'* THEN IF G0MMA=0 THEN PLAY” 
L2405SI”:G0MMA=1 ELSE PLAY”L2401SI”:GOMM 
A=0 

600 IF SS=CHRS(12) THEN GOTO 2170 


610 PSETCX,Y),-(SFOND+1) 

620 MOVE=0: LOOP 
630 ’ 

640 • RIPRISTINA SFONDI 
650 * 

660 PSETCX,Y) , CO 
670 RETURN 

680 • SIMULA STRINGA DRAW 

690 IF G0MMA=1 THEN CO=-(SFOND+1) ELSE C 

0=TR 

700 IF HFLAG=1 THEN GOTO 740 
710 IF SGN(CO)= -1 THEN COLS=STRS(CO) ELS 
E COLS=RIGHTS(STRS(CO),LEN(STRS(CO))-l) 
720 MOV$=CHR$(34)+RIGHTS(STRS(X),LENCSTR 
S(X))-l)+”,”+RIGHTS(STRS(Y),LEN(STRS(Y)) 
—1)+”,”+COLS+”>” 

730 HFLAG=1 

740 IF MOVE=1 THEN MOVS=MOVS+MOVS(JO) 

750 IF LEN(MOVS)=>125 THEN MOVS=MOVS+CHR 
S(34):GOSUB 770:MOVE=0:MOVS=CHRS(34):GOT 
O 740 

760 RETURN 

770 • MEMORIZZA LINEA CON DRAWS 
780 PLA v ”L1005DO” 

790 UND=PUNT:RIG=LIN:POKE PUNT,0:PUNT=PU 

NT+1:POKE PUNT,0 

800 DRAVS=”DRAVS=”+MOV$ 

810 PUNT=PUNT+1:POKE PUNT,5+LEN(DRAWS) 
820 PUNT=PUNT+1:POKE PUNT, INT(LIN/256) 
830 PUNT=PUNT+1:POKE PUNT,LIN-256*I NT(LI 
N/256) 

840 FOR KK=1 TO LEN(DRAWS) 

850 PUNT=PUNT+1 

860 FR-ASC(MIDS(DRAWS,KK, 1)) : IF FR=61 TH 
EN FR=212 

870 POKE PUNT,FR:NEXT KK 

880 PUNT=PUNT+1 :LIN=LIN+10 

890 POKE PUNT,0:PUNT=PUNT+1:POKE PUNT,0 

900 FRAS=” 2250”:PUNT=PUNT+1:POKE PUNT,7 

+LENCFRAS) 

910 PUNT=PUNT+1: POKE PUNT, INT(LIN/256) 
920 PUNT=PUNT+1: POKE PUNT,LIN-256*INT(LI 
N/256) 

930 PUNT=PUNT+1:POKE PUNT,135 
940 PUNT=PUNT+1:POKE PUNT,188 
950 FOR KK=1 TO LEN(FRAS) 

960 PUNT=PUNT+1:POKE PUNT,ASC(MIDS(FRAS, 
KK,1)) 

970 NEXT KK 

980 PUNT=PUNT+1:LIN=LIN+10 
990 FOR KK=0 TO 3 :POKE PUNT+KK,0:NEXT KK 
1000 PLAY”LI005DO”:RET=0 : RETURN 
1010 » 

1020 • TRACCIA CERCHI 
1030 * 

1040 EFLAG=1 

1050 GOSUB 390:XC=X:YC=Y:PSETCXC,YC),TR: 
PLAY”L1005SI” : VO=CO:CO=POINT(X,Y) 

1060 GOSUB 390:XR=X:YR=Y 

1070 R=fINT(SQR( (XR-XC) ^2+CYR-YC) ^2) ) 


LIST 10/89 


285 


95 

















PROGRAMMI 


1080 CIRCLECXC,YC),R,TR:PSETCXC,YC) , VO: C 
0=P01NT CXR,YR> 

1090 UND=PUNT:RIG=LIN:POKE PUNT,0:PUNT=P 
UNT +1:POKE PUNT,0 

1100 FRAS=” ('• +RIGHTS (STRS (XC> , LENCSTRS (X 
C)>-!)+" , "+RIGHTS(STRS(YC),LENCSTRS(YC)) 
-1)+"),"+RIGHTS (STRS ( I NT (R) ) , LEN (STRS ( IN 
T(R)))-l)+ M , M +RIGHTS(STRS(TR),LEN(STRS(T 
R))-1 ) 

1110 PUNT=PUNT+1:POKE PUNT,6 + LEN(FRAS) 
1120 PUNT=PUNT+1:POKE PUNT, I NT(LI N/256) 
1130 PUNT=PUNT+1:POKE PUNT,LIN-256*I NT(L 
I N/256) 

1140 PUNT=PUNT+1:POKE PUNT,231 
1150 FOR KK=1 TO LEN(FRAS) 

1160 PUNT=PUNT+1:POKE PUNT,ASC(MIDS(FRAS 
,KK,1)) 

1170 NEXT KK 

1180 PUNT=PUNT+1:LIN=LIN+10 

1190 FOR KK=0 TO 3:POKE PUNT + KK,0 :NEXT K 

K 

1200 XC=0:YC=0:XR=0:YR=0:EFLAG=0: RETURN 
1210 » 

1220 • TRACCIA LINEE 
1230 * 

1240 EFLAG=1 

1250 GOSUB 390:XL=X:YL=Y:PSETCX,Y),TR:PL 
AY M L1005SI” : CO=POINT(X, Y) 

1260 GOSUB 390 :XL1 = X:YL1 = Y:LI NE(XL,YL)-( 
XL1,YL1),TR:CO=POINT(X,Y) 

1270 UND=PUNT:RIG=LIN:POKE PUNT,0 :PUNT=P 
UNT+1:POKE PUNT, 0 

1280 FRAS=”( M +RIGHTS(STRS(XL),LEN(STRS(X 
L))-l)+ M , M + RIGHTS(STRS(YL),LEN(STRS(YL)) 
-1)+”)-("+RIGHTS(STRS(XL1),LEN(STRS(XL1) 

)-1)+","+RIGHTS(STRS(YL1) , LEN(STRS(YL1)) 
-1)4»’) , "+RIGHTS (STRS (TR) , LEN (STRS (TR) )-1 
) 

1290 PUNT=PUNT+1:POKE PUNT,6+LEN(FRAS) 
1300 PUNT=PUNT+1:POKE PUNT, I NT(LI N/256) 
1310 PUNT=PUNT+1:POKE PUNT,LIN-256*I NT(L 
I N/256) 

1320 PUNT=PUNT+1:POKE PUNT,165 
1330 FOR KK=1 TO LEN(FRAS) 

1340 PUNT=PUNT+1 

1350 FR=ASC(MIDS(FRAS,KK,1)):IF FR=45 TH 

EN FR=200 

1360 POKE PUNT,FR 

1370 NEXT KK 

1380 PUNT=PUNT+1:LIN=LIN+10 

1390 FOR KK=0. TO 3:POKE PUNT+KK,0:NEXT K 

K 

1400 EFLAG=0:RETURN 
1410 » 

1420 1 PAINT 
1430 * 

1440 EFLAG=1 

1450 GOSUB 390: PLAY”LI005SI'* : PSET (X, Y) , C 


O: PAINT(X,Y),TR 

1460 UND=PUNT: RIG=LIN:POKE PUNT, 0 :FUNT=P 
UNT+1:POKE PUNT,0 

1470 FRAS = " C’+RIGHTS(STRS(X),LEN(STRS(X) 
)-l)+","+RIGHTS(STRS(Y),LEN(STRS(Y))-1)+ 
”), M +RIGHTS(STRS(TR),LEN(STRS(TR))-l) 
1480 PUNT=PUNT+1:POKE PUNT,6+LEN(FRAS) 
1490 PUNT=PUNT + 1:POKE PUNT, INT(LIN/256) 
1500 PUNT=PUNT+1:POKE PUNT,LIN-256*INT(L 
I N/256) 

1510 PUNT=PUNT+1:POKE PUNT,232 
1520 FOR KK=1 TO LEN(FRAS) 

1530 PUNT=PUNT+1:POKE PUNT,ASC(MIDS(FRAS 
,KK,1)) 

1540 NEXT KK 

1550 PUNT=PUNT+1:LIN=LIN+10 

1560 FOR KK=0 TO 3 :POKE PUNT + KK,0 :NEXT K 

K 

1570 EFLA(j=0: CO=POINT (X, Y) : RETURN 
1580 • 

1590 » DISEGNA RIQUADRI 
1600 ' 

1610 EFLAG=1 

1620 GOSUB 390:PLAY”LI005SI":XB=X:YB=Y:P 
SET(X,Y),TR:CO=POINT(X, Y) 

1630 GOSUB 390: BOX(XB,YB) -(X,Y),TR:CO=PO 
INT (X, Y) 

1640 UND=PUNT:RIG=LIN:POKE PUNT,0:PUNT=P 
UNT+1:POKE PUNT,0 

1650 FRAS= M ("+RIGHTS(STRS(XB),LEN(STRS(X 
B) )-l)+" , *' +RIGHTS (STRS (YB) , LEN (STRS (YB) ) 
-1)+")-("+RIGHTS(STRS(X),LENCSTRS(X))-l) 
+", M +RIGHTS(STRS(Y),LENCSTRS(Y))-1)+") , M 
+RIGHTS(STRS(TR),LENCSTRS(TR))-1) 

1660 PUNT=PUNT+1:POKE PUNT,6+LEN(FRAS) 
1670 PUNT=PUNT+1:POKE PUNT, INT(LIN/256) 
1680 PUNT=PUNT+1:POKE PUNT,LIN-256*INT(L 
I N/256)* 

1690 PUNT=PUNT+1:POKE PUNT,166 
1700 FOR KK=1 TO LEN(FRAS) 

1710 PUNT=FUNT +1 :FR=ASC(MIDS(FRAS, KK, 1)) 
1720 IF FR=45 THEN FR=200 
1730 POKE PUNT,FR 

1740 NEXT KK 

1750 PUNT=PUNT+1:LIN=LIN+10 

1760 FOR KK=0 TO 3 

1770 POKE PUNT+KK,0 

1780 NEXT KK 

1790 EFLAG=0:RETURN 

1800 • 

1810 ’ FUNZIONE UNDO 
1820 » 

1830 POKE UND,0:POKE UND+1,0 

1840 POKE UND+2,6 

1850 POKE UND+3,INTCRIG/256) 

1860 POKE UND+4,RIG-256^INT(RIG/256) 

1870 POKE UND+5, 139:FOR KK=0 TO 3 :POKE U 

ND+6+KK,0:NEXT KK 
1880 PUNT=UND:LIN=RIG 
1890 RETURN 
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1900 » 


tire dalla” .-PRINT 


1910 ' PRESENTAZIONE 


2230 PRINT "linea 3000.BUON LAVORO !!” 


1920 • 


2240 END 


1930 PRINT CHRS(20):CLS:SCREEN 7,0,0:BOX 


2250 • ROUTINE DI LETTURA E STAMPA 


(0,0)-<319,199): BOX<3,3)-<316 , 196) 


2260 1 CONTENUTO DELLE VARIABILI 


1940 ATTRB 1, 1: LOCATE 10,2:COLOR 2:PRINT 


2270 ’ DRAVS 


"BAS” COLOR 7: PRINT " IGR” COLOR 1:PRI 


2275 IF INSTR<1,DRAVS,”>”>=0 THEN GOTO 2 


NT ”APH M 


340 


1950 ATTRB 0,0: COLOR 7 .-LOCATE 4,4: PRINT 


2280 XCU=VAL(LEFTS(DRAVS,INSTR(1,DRAVS,” 


” <c) QUARTA FILIPPO - LIST 1989 M 


,”)-l)) 


1960 LOCATE 1,7: PRINT "Questo programma 


2290 DRAVS=RIGHTS(DRAVS,LEN(DRAVS)-INSTR 


autocrea i programmi” 


(1, DRAVS, •',”)) 


1970 LOCATE 1,9:PRINT "basic corrisponde 


2300 YCU=VAL(LEFTS(DRAVS, INSTR(DRAVS,”,” 


nti alle schermate” 


)-l) ) 


1980 LOCATE 1,11:PRINT "create dall’uten 


2310 DRAVS=RIGHTS(DRAVS,LEN(DRAVS)-INSTR 


te col joistick.” 


(1,DRAVS,”,”)) 


1990 LOCATE 1,13:PRINT ”I listati creati 


2320 COL=VAL(LEFTS(DRAVS,INSTR(DRAVS,”>” 


potranno essere uni-” 


)-l )) 


2000 LOCATE 1,15:PRINT "ti ad altri prog 


2330 DRAVS=RIGHTS(DRAVS,LEN(DRAVS)-INSTR 


ramini Basica con ” 


(1,DRAVS,”>”)> 


2010 LOCATE 1,17:PRINT "opportuni MERGE. 


2340 PSET(XCU,YCU),COL 


I» « 


2350 FOR KK=1 TO LEN(DRAVS) 


2020 LOCATE 5,22:COLOR 2:PRINT "PREMI UN 


2360 COMS=MIDS(DRAVS,KK,1) 


”; .-COLOR 7: PRINT ” TASTO PER” ;: COLOR 1:P 


2370 IF COMS=”U” THEN YCU=YCU-1 


RI NT ” CONTINUARE”: COLOR 7 


2380 IF COMS=”E” THEN XCU=XCU+1:YCU=YCU- 


2030 VS=INPUTS <1):CLS:BOX(0,0)-<319,199) 


1 


: BOXC3,3)-<316,196) 


2390 IF COMS=”R” THEN XCU=XCU+1 


2040 LOCATE 10,1:COLOR 2:ATTRB 1,0:PRINT 


2400 IF COMS=”H” THEN XCU=XCU+1:YCU=YCU+ 


”FUN”;:COLOR 7:PRINT "ZI”;:COLOR 1:PRIN 


1 


T ”ONI”: COLOR 7:ATTRB 0,0 


2410 IF COMS=”D” THEN YCU=YCU+1 


2050 LOCATE 1,3:PRINT ”CJOISTICK] - 


2420 IF COMS= ,i G” THEN XCU=XCU-1 : YCU=YCU+ 


-> Muove il cursore” 


1 


2060 LOCATE 1,5:PRINT "CFIREI - 


2430 IF COM$=”L” THEN XCU=XCU-1 


-> Tratto ON/OFF” 


2440 IF COMS=”N” THEN XCU=XCU-1:YCU=YCU- 


2070 LOCATE 1,7:PRINT ”IACC] - 


1 


-> Colore tratto” 


2450 PSET(XCU,YCU),COL 


2080 LOCATE 1,9:PRINT ”CG3 - 


2460 NEXT KK 


-> Sei. penna/gomma” 


2470 RETURN 


2090 LOCATE 1,11:PRINT ”CU] - 


2997 • 


—> UNDO” 


2998 1 LINEE AUTOCREATE DAL PC 128 


2100 LOCATE 1,13:PRINT "CC1 - 


2999 * 


--> Cerchi” 


3000 CLS:SCREEN 0,1,0 


2110 LOCATE 1,15:PRI NT "ILI - 


3010 CIRCLE(150,76),15,0 


— > Linee” 


3020 CIRCLE(150,85) , 14,0 


2120 LOCATE 1,17:PRINT ”[B] - 


3030 PAINT(141,71),0 


—> Box” 


3040 PAINT(141,93),0 


2130 LOCATE 1,19:PRINT ”CP] - 


3050 DRAVS=”141,93,0>” 


—> Paint” 


3060 GOSUB 2250 


2140 LOCATE 1,21:PRINT "[CLS/HOME] - 


3070 DRAV$="115,93,0>LLLLLLLLLLLLLLLLLLL 


—> Exit” 


LLUUUUUUUURRRRRRRRRRRRRRRRRRRRRRRDDDDDDD 


2150 LOCATE 5,23:COLOR 2:PRINT "PREMI UN 


DLLLLLLLLLLLL” 


M ; : COLOR 7:PRINT "TASTO PER ”;:COLOR 1: 


3080 GOSUB 2250 


PRINT "CONTINUARE”: COLOR 7 


3090 DRAVS=”98,94,0>” 


2160 V$=INPUT*<1):CLS:RETURN 


3100 GOSUB 2250 


2170 • 


3110 DRAVS=”98,94,0>” 


2180 • EXIT FROM BASIGRAPH 


3120 GOSUB 2250 


2190 * 


3130 DRAVS=”98,94,0>DDRRRRRRRRRRRRRRRRRR 


2200 IF RET=1 THEN FORT=0 TO 3 :POKE PUNT 


RRRUUUUUUUUL” 


+T, 0:NEXTT 


3140 GOSUB 2250 


2210 CLS:SCREEN 7,0,0 


3150 PAI NT(115,95 ) , 0 


2220 PRINT "Linee basic autocreate a par 


1 
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Olivetti PRODEST 

Un menu veramente “SUPER” che 

PC 128s 


di BRUNO PARBONI ARQUATI 


permette di avere tutto il disco sottomano: directory e programmi 


Wind Menu 


ulle pagine della nostra Rivista, di programmi per ot¬ 
tenere il cosiddetto “Menu" che consente di sceglie¬ 
re il “piatto" da servire all’utente (e da questa simili¬ 
tudine di carattere prettamente culinario deriva il no¬ 
me che per essi è comunemente usato) ne sono stati 
proposti a iosa. 

Perché allora presentarne ancora un altro? 

Se andiamo ad analizzare con attenzione i vari programmi fino ad 
oggi apparsi possiamo constatare che in effetti non si tratta di "Me¬ 
nu” che coprano tutte le varie possibilità di scelta di cui invece sa¬ 
rebbe indispensabile poter disporre per muoversi agevolmente nel¬ 
l’interno del disco stesso e quindi selezionare, nelle varie Directory 
in cui lo stesso sia stato suddiviso, proprio quanto ci interessa cari¬ 
care. 

In genere un primo "Menu" consente solo di selezionare la Directo¬ 
ry desiderata e caricare poi un "Sub-Menu" locale che, a sua volta, 
ti consentirà la scelta ed il caricamento dei vari programmi che ivi 
sono contenuti: un poco come se al ristorante ti presentassero un 
primo “Menu” indicante solo il raggruppamento delle varie pietan¬ 
ze (antipasti, primi, secondi, ecc.) e poi ti presentassero tanti "Me¬ 
nu” separati per scegliere quello che desideri ti venga servito! 
Esistono, è ben vero, dei "Menu" che ti presentano tanto i raggrup¬ 
pamenti principali delle varie pietanze (scusate, volevo dire delle 
Directory) e quanto in esse è contenuto (magari il tutto ben condito 
con una grafica accattivante), ma in genere la lista dei piatti (conti¬ 
nuo a fare confusione, volevo dire dei programmi) è piuttosto limi¬ 
tata ed inoltre deve essere stabilita una volta per tutte dovendo es¬ 
sere inserita, assieme ai nomi di tutte le varie Directory, in una ap¬ 
posita matrice di stringhe. 

Ad ogni aggiunta di nuovi programmi si rende necessaria una mo¬ 
difica del dimensionamento delle matrici e dei vari DATA ad esse 
corrispondenti, e quindi la registrazione "ex novo" del programma 
modificato. 

Il "Menu” che vi propongo (che è stato ottenuto mediante un accu¬ 
rato amalgama e completa rielaborazione di varie routine già utiliz¬ 
zate in programmi analoghi, tanto miei quanto degli altri collabora¬ 
tori di "LIST") ovvia ai vari inconvenienti che abbiamo sopra richia¬ 
mato, consentendovi un aggiornamento continuo, e fino ad un 
massimo di 18 titoli, dell’elenco dei programmi che sono contenuti 
nelle singole Directory. 

Solo per queste, e per le rispettive descrizioni estese, è sempre ne¬ 
cessario prefissarne il numero ed immetterne nomi e diciture nella 
lista dei DATA. _ 
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Una volta ciò fatto, non dovrete più apportare modifiche al listato, 
salvo che modifichiate il numero delle Directory (e relative eventuali 
Sub-Directory) nel qual caso occorrerà un aggiornamento del di¬ 
mensionamento della matrice e dei DATA. 


FUNZIONAMENTO DEI PROGRAMMA 

Il programma propostovi vi risolverà, finalmente, il problema di sele¬ 
zionare, fra le varie Directory disponibili (i cui nomi e descrizioni, 
come già detto, saranno gli unici dati che dovrete inserire nella ma¬ 
trice prevista) quella desiderata selezionandola da un elenco che, 
sotto forma di descrizione esplicativa del rispettivo contenuto, vi 
apparirà entro una apposita finestra, opportunamente riquadrata 
e contenuta nella schermata di inizio, che comprende anche una 
indicazione relativa alla situazione di occupazione della memoria 
del vostro dischetto, l’intestazione dello stesso e le istruzioni da se¬ 
guire per la selezione 

Detta selezione avviene agendo solo sui due tasti cursori con le 
frecce verticali, che faranno scorrere una barra che evidenzierà in 
"reverse” le denominazioni delle Directory disponibili: una volta 
scelto quanto desiderate vi basterà premere <RETURN> per selezio¬ 
nare la Directory corrispondente alla descrizione da voi indicata. 
Il sistema di selezione adottato vi consentirà di scegliere una qual¬ 
siasi Sub-Directory, a qualsiasi livello gerarchico si trovi rispetto al¬ 
la Directory radice: basterà infatti abbinare alla descrizione del suo 
contenuto (quella che apparirà nella schermata iniziale) il percorso 
da seguire. 

Ciò sarà facilmente ottenibile separando, nella lista dei DATA, i No¬ 
mi delle successive Directory da percorrere con un punto: se ad 
esempio, riferendoci al dischetto WELCOME che tutti voi possede¬ 
te, volessimo caricare uno dei programmi di utilità in esso contenuti 
dovremo abbinare ad una descrizione del tipo "Programmi vari di 
utilità" il relativo percorso che, nel caso specifico, sarà WELCO¬ 
ME.UTILITIES (il simbolo $. verrà automaticamente aggiunto dal 
programma stesso, senza che dobbiate preoccuparvene). 

Una volta che la Directory prescelta sia stata raggiunta il program¬ 
ma caricherà un apposito file nel quale saranno stati memorizzati 
in via preliminare i nomi dei vari programmi che in essa sono conte¬ 
nuti e le descrizioni abbinatevi. 

Qualora detto file non esista ancora il programma provvede ad evi¬ 
denziare il catalogo della Directory ed a proporvi le varie opzioni di 
lavoro consentite, fra le quali è compresa la possibilità di creazione 
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ed aggiornamento del file stesso (in proposito vedasi quanto detto 
più avanti). 

Facendo coincidere la consueta barra evidenziatrice con una delle 
descrizioni dei programmi (che vi saranno mostrate nello apposito 
riquadro) selezionate quella desiderata e mediante la semplice 
pressione del tasto <RETURN> otterrete il caricamento del program¬ 
ma ad essa abbinata. 


OPZIONI DI LAVORO DISPONIBILI 

Una volta selezionata una delle Directory disponibili vi sarà presen¬ 
tata, come già detto, la lista dei programmi che in essa sono stati 
memorizzati, per meglio dire le descrizioni ad ognuno abbinata: in 
fondo al riquadro appare anche una scritta relativa alle opzioni di 
lavoro che sono disponibili. 

Selezionando tale scritta, sempre agendo sui tasti cursori e pre¬ 
mendo il tasto <RETURN> per confermare, vi troverete in una nuova 
finestra, anche essa aperta nella schermata di presentazione ge¬ 
nerale, nella quale vi saranno proposte le seguenti alternative di la¬ 
voro, al solito tutte ottenibili con una semplice digitazione del tasto 
numerico corrispondente: 

1) AGGIORNAMENTO: 

con tale opzione, che verrà automaticamente attivata se il file “00” 
non fosse presente, si potranno introdurre le descrizioni ed i nomi 
dei nuovi programmi da aggiungere alla lista. 

Il catalogo della Directory verrà evidenziato in una finestra ausilia- 
ria così da facilitare l’individuazione e l’esatta trascrizione dei Nomi 
dei programmi che in essa sono memorizzati. L’apposita routine di 
controllo verifica l’esistenza di un file corrispondente al nome del 
nuovo programma. 

Se questo non risultasse già memorizzato viene evidenziata tale si¬ 
tuazione: se invece tutto è in ordine si potrà immettere la descrizio¬ 
ne ad esso collegata, la cui lunghezza massima viene opportuna¬ 
mente delimitata, ed il tutto verrà aggiunto al file esistente. 

2) CORREZIONE: 

risulta sempre possibile modificare tanto i Nomi dei programmi che 
le descrizioni ad essi abbinate. 

L’opzione 2 vi consentirà infatti tale operazione: una volta indicata 
la descrizione da modificare verrà evidenziato il Nome del pro¬ 
gramma rispettivo e sarà possibile modificare ambedue. 

3) RITORNO AL MENU: 

la scelta di questa opzione determinerà il ritorno alla schermata 
presentante l’elenco dei programmi della Directory. 

4) SELEZIONE DIRECTORY: 

con questa opzione si ritornerà alla finestra di selezione delle Di¬ 
rectory: in altri termini alla Directory radice. 

5) USCITA DAL PROGRAMMA: 

in questo caso si ritornerà alla Directory radice e, dopo la compar¬ 
sa dell’apposita scritta, il programma termina con un END. 

STRUTTURA DEL LISTATO 

Il programma, che occupa un poco più di 6 Kbyte ed il cui listato ri¬ 


sulta di 134 linee (in genere piuttosto brevi ed in esse è compresa 
anche l’intestazione), è stato scritto adottando la consueta forma 
strutturata a voi ben nota e fa largo uso delle finestre: da ciò ne de¬ 
riva il nome “Wind Menu" che gli è stato assegnato. 

Per l’intestazione della schermata principale (nel cui riquadro ver¬ 
ranno man mano aperte le varie finestre operative) e di alcuni altri 
titoli è stata adottata una routine, in BASIC, di ingrandimento dei 
caratteri più volte illustrata su queste stesse pagine tanto da me 
stesso che da altri Autori. 

Altre routine (tutte e sempre sotto forma di procedure predefinite) 
interessanti sono quelle che consentono di inquadrare ed eviden¬ 
ziare in "reverse’’ alcuni titoli, facendoli anche lampeggiare ove op¬ 
portuno. 

Naturalmente (non mancherò di ripetervelo ancora una volta) il li¬ 
stato allegato si riferisce ad una ben determinata configurazione 
del disco in cui esso si trqva: per utilizzarlo in un vostro disco dovre¬ 
te pertanto modificare opportunamente il dimensionamento delle 
due matrici utilizzate e la lista dei DATA, adattando il tutto alle vo¬ 
stre esigenze. 


10 

REM 

* 

■a-*****-**#**#** 

# * * 

* 



20 

REM 

* 

”Wind_Menu" 


* 



30 

REM 

* 

Evidenziazione delle Directo 

ries ; 

* 



40 

REM 

* 

poi caricamento del Menu" pe 

r una 

* 



50 

REM 

* 

scelta dei Programmi disponi 

bili. 

* 



60 

REM 

* 

#******•*#*■»*#* 

* * * 

* 



70 




80REM 

- 

Bruno Parboni Arquati Roma - 


03 . 89 
90 : 

100DRTR DEMO_PROGR i PROGRAMMI,PROGRAMMI 
.MENUS,PROGRAMMI.IMAGES,UTILITIES 

110DATA FINE DELLA SEDUTA DI LAVORO,RA 
CCOLTA DI PROGRAMMI DIMOSTRATIVI,TUTTI I 
PROGRAMMI SCRITTI PER LIST, I VARII TIPI 
DI MENU' DISPONIBILI,RACCOLTA DI GRAFIC 
I DI "VIEW PLOT" t UNA RACCOLTA DI UTILI U 
TILITIES 

12 0MODE12 8:OSCLI"DIR":0SCLI"FX4 , 1": * K E 
Y 9 *FX4 , 0 I M 

130ON ERROR REPORT:PRINT" at Line " ; ER 
L:OSCLI"FX4,0":OSCLI"KEY 9 END": END 

140DIM c% 9 ; Dir$(8),Descr$(8), A $ ( 2 0 ) ; B 
$(20 ) : A$(20) = "Scelta delle opzioni/Fine 
seduta" 

150VDU23,130,0,2551 :RESTORE100 :FOR j% = 
1 TO 5 : RE AD Dir$(j%): NE XT 

160FOR j*=0 TO 5 : READ A$:Descr$(j%) = " 

C "-*-STR$j% + " 1 "+A$ : l%=LENDescr$( j%) : IF 1% 

<40 THEN Descr$(j%)=Descr$(j%)+STRING$(4 
0-L%> M ") : NE X T ELSE NE X T 

170TÌtolo$="TUTTI I PROGRAMMI SCRITTI 
PER LIST DA BRUNO PARBONI ARQUATI - Agg 
Aprile 98" :PROCTitolo 
180PROCselect :PROCexec 
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99 












190PROCsound :Z=INKEY(100) 

200IF ASCB $(P)= 3 3 THEN OSCLIBS(P) ELSE 
CHRIN B$(P) 

210END: REM- 


220: 

230 DEFPROCd < x$) 

240LOCAL xV.FOR x%=1 TO LENx $ : PROCdh ( M 
ID$(x$,x%,1)): NE XT 
250 ENDPROC 
260 : 

270 DEFPROCdh(a$) 

280?c%=RSC a$:X%=c% MOD256:Y%=c% DIV25 
6:R%=10:CRLL&FFF1 

290VDU23,128 ,c%?1 ,c%?1 , c%? 2 , c%? 2 , c%? 3 , 
c%?3,c%?4,c%?4,128,10,8,23,128,c%?5,c%?5 
, c%?6,c%?6,c%?7,c%?7, c%?8,0^78,128,11 
300 ENDPROC 
310 : 

320 DEFPROCTitolo 

3 30PRINTTRB(0,0)CHR$163 ;STRINGS<78,CHR 
$166) ;CHR$165;CHR$169;TRB(7 9,1) ;CHR$169 ; 
CHRS169;TRB(79,2);CHR$169;CHR$171;STRING 
$(78,CHR$166);CHR$173;:FOR i = 4 TO 26:PRI 
NTTRB(0,i) ;CHR$169;SPC7 8;CHR$169; :NEXT 

340PRINTTAB(0,i)CHR$171 ;STRINO$(78,CHR 
$166) ;CHR$173;CHR$169;SPC78;CHR$169 ;CHR$ 
169;SPC78;CHR$169;CHR$170;STRING$(78,CHR 
$166) ;CHR$172; 

350PRINTTRB(2,1); :PROCd(TitoLo$):PRINT 
TRB(10,28)"Per la selezione delle Direct 
ories e dei Programmi utilizza i”;TRB(10 
,29)" tasti cursore " ; CHR$1 39 ; CHR$1 38 e 
poi prem4®*< RiTURN > per eseguire il coma 
ndo"; :PROCwind_testo:CLS 

360PROCmem:M0VE14,1000:PLOT102,1264,92 
0 : MOVE 14,56 : PLOT 1 02,1 26 4 ,1 38 
370 ENDPROC 
380 : 

390 DEFPROCcasella(x%,y%,T$> 
400l%=LENT$:PRINTTAB(x%,y%)CHR$163;STR 
ING$(l%,CHR$166);CHR$165;TAB(x%,y%*1)CHR 
$169 ;SPCl%,uHR$169 ;TRB(x%,y2)CHR$ 170 ;S 
TRING$(1%,CHR$166) ;CHR$ 172;TRB( x%+ 1,y%+1 
) T $ 

410 ENDPROC 
420 : 

430 DEFPROCschema 

440PRINTTRB(20,0)CHR$163 ;STRING$(36 , CH 
R$166);CHR$165; :FOR i = 1 TO 21 :PRINTTRB(2 
0,i)CHR$169;SPC36;CHR$169 ; :NEXT:PRINTTRB 
(20,i)CHR$170;STRING$(36,CHR$166) ;CHR$17 
2; 

450 ENDPROC 
460 : 

470 DEFPROCmem 

4 80PRINTTRB(24,1)"SITUAZIONE DELL'OCCU 
P AZIONE DI" ;T RBC 2 4,2) " MEMORIA" ; TRB (24,3) 
"DEL DISCO: " 

490VDU28,34,9,78,6:OSCLI"FREE":FOR i=1 
TO 18:VDU23,7,0,1I:NEXT:VDU26 
500PRINTTRB(23,4)CHR$163;STRING$(32, CH 


R$166);CHR$165;TAB(23,5)CHR$169;TAB(56,5 
)CHR$169;TRB(23,6)CHR$169;TRB(56,6)CHR$1 
69;TRB(23,7)CHR$169;TRB(56,7)CHR$169;TRB 
(23,8)CHR$170 ;STRING$(32,CHR$166) ;CHR$17 

2 :PROCwind_testo 

510MOVE 3 8 2,872:PLOT102,896,762 
520 ENDPROC 
530 : 

540 DEEPROCselect 

550PRINTTRB(26,5)"SELEZIONE DELLA DIRE 
CTORY" ; T AB (25,6)STRING$(27', CHR$130) . 

560PRINTTRB(17,7)CHR$163 ;STRING$(42,CH 
R$166) ;CHR$165; :FOR i = 8 TO 17 :PRINTTRB(1 
7,i)CHR$169;SPC42;CHR$169;:NEXT:PRINTTRB 
(17, i )CHR$170 ;STRING$(42,CHR$166 ) ;CHR$17 
2; 

570PROCwind_sel:CLS:P=0:PP=1 
580FOR i = 0 TO 8:PRINTTAB(0,i)" ";Descr 
$( i ) ; " "; :NEXT: PROCinv:PRINTTRB(0,0 ) " " ; 
Descr$(0) ;" ";:VDU20 

590PRINTTRB(0 , PP)" ";Descr$(PP);" ";:P 
ROCinv:PRINTTRB(0,P)" ";Descr$(P);" "; : V 
DU2 0 

6 0 0d = GET:IF d = 138 THEN 610 ELSE IF d=1 
39 THEN 620 ELSE IF d=13 THEN 630 ELSE 5 
90 

6101F P < 5 THEN PP = P:P = P +1 :GOTO590 ELSE 
P=5:GOJO590 

6201F P > = 0 THEN PP = P : Rr=P-1 : GOTO590 ELS 
E P = 0 :GOTO590 

630dir%=P:IF dir%=0 PROCfine ELSE OSCL 
I"DIR "+Dir$(dir%) 

640 ENDPROC 
650 : 

660 DEFPROCmarca 
670PROCcoord 

680FOR i%= 0 TO 4 :IF i% MOD2 = 0 THEN PRO 
Cquadro(1): PROCinv:PRINTTRB(x%+1,y%+1)B$ 
:VDU20 ELSE PROCquadro(2):PRINTTRB(x%+1, 
y% + 1)STRING$(LENB$," ") 

690Z = INKEY(50) : NE XT:VDU2 0:ENDPROC 
700 : 

710 DEFPROCquadro(n%> 

720MOVEpx%,py%:IF n%=1 THEN PLOT102,px 
f%,pyf% ELSE PLOT103,pxf%,p yf% 

730 ENDPROC 
740 : 

750 DEFPROCinv:COLOUR0:C0L0UR129:ENDPR 
OC 

760 DEFPROCsound:S0UND1,-8,105,8 : SOUND 

3 , -7,8 0,6 :ENDPROC 

7 70 DEFPROCwindetesto :VDU28,1,26,78,4: 
L%= 22 :ENDPROC 

780 DEFPROCwind_menu:VDU28,23,25,57,5: 
L% = 20 :ENDPROC 

7 90 DEFPROCwind__agg : VDU2 8,24,24,77,5: L 
%=19 :ENDPROC 

8 00 DEFPROCwind_sel:VDU2 8,19,21,60,12: 
ENDPROC 

810 DEFPROCwind__cat : VDU28,2,26,21,7:CL 
S:OSCLI"CRT":ENDPROC 
820 : 
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830 DEFPROCcoord:px%=16*(x% +2)-2 :py%=8 
58-32*(y% +1):lx%=LENB$*16+2 :pxf%=px%+Lx% 
:pyf%=py%+48:ENDPROC 
840 : 

850 DEFPROCexec 

860PROCwind_testo:CLS: PROCschema:B$ = M * 
ELENCO PROGRRMMI*":x%=0 :y%=0:PROCcaseLLa 
(x%,y%,B$):PROCcoord:PROCquadro(1):PRINT 
TRB(2,3)"DELLA DIRECTORY";TRB(4,5)Dir$(d 
i r%): PROCwind_menu:CLS:PRINT"*";MID$(Des 
cr$( óir%)j 6) 

870R=OPENIN"00":IF R=0 THENPROCaggiorn 
a ELSE CLOSEttfì:PROCLet 

880J%=0:REPERT:J%=J%+1:IF fl$d%) = "" GO 
TO 890 ELSE PRINTTRB(0,J%>fì$<J%); 

890UNTIL R$(J%)="" OR J% = 20: K%=3 %-1 
900P=1:PP=1:PRINTTRB(0,20)R$(20); 

910PRINTTRB(0 i PP)fl$(PP)+STRING$(34-LEN 
R$(PP) i u "); : PROCinv:PRINTTRB(0,P)fì$(P) + 
STRING$(34-LENA$(P) /' ");:VDU20 
920d=GET 

930IF d=138 THEN 960 
9401F d = 139 THEN 980 
9501F d = 13 THEN 1000 ELSE 920 
960IF P=K% THEN P=20:PP=K%:G0T0910 
9701F P = 20 THEN PP = 20:G0T0910 ELSE PP = 
P:P=P+1:G0T0910 

9801F P = 1 THEN 910 

9901F P = 20 THEN PP = 20 :P = K% :G0T0910 ELS 
E PP=P:P=P-1:GOTO910 
1000OSCLI"FX15 , 0 ":IF P>K% PROCaggiorna: 
GOTO 950 ELSE OSCLI"FX4,0":OSCLI"KEY 9 E 
ND":G0T02 0 0 
1010 ENDPROC 
1020 : 

1030 DEFPROCaggiorna 

1040PROCwind_testo:CLS:PRINTTRB(22,0)CH 
R$163;STRING$(54,CHR$166);CHR$165;:FOR i 
= 1 TO 20 :PRINTTRB(22,Ì)CHR$169;SPC54;CHR 
$169 ; :NEXT:PRINTTRB(2 2 i i)CHR$ 170 ;STRINGS 
(54 ,CHR$166>;CHR$ 172 ; 

1050x%=0:y%=0:B$="*CRTRLOGO DIRECTORY*" 

:PROCcaselLa(x%,y%,B$):PROCcoord:PROCqua 
dro(1):PROCwind_cat:PROCwind_agg:CLS 
1060PRINT" Scelte disponibili: 1 : RGG 

IORNRMENTO";TRB(22, 1 ) "2 : CORREZIONE";TR 
B(22,2)"3 : RITORNO RL MENU'";TRB(22,3)" 
4 : SELEZIONE DIRECTORIES";TRB(22,4)"5 : 
FINE DELLA SEDUTAPRINT''"Premi iL nr. 
dell'opzione desiderata"; 

1070REPERT:dec=GET-48:UNTIL dec>0 RND d 
ec < = 5 :IF dec = 1 THEN 1080 ELSE IF dec = 2 T 
HEN 1100 ELSE IF dec = 3 THEN PROCmenu ELS 
E IF dec=4 THEN PROCwind_testo:CLS:OSCLI 
"DIR $" :.GOTO180 ELSE CLSiPROCfine 
1080IF K %=19 PROCsound:PRINT''"Impossib 
ile inserire altri programmiZ=INKEY(2 
00) :CLS:GOTO1060 
1 090PROCins:CLS: GOT01060 

110 0PROCcor:IF K% = 0 PROCsound :PRINT''"N 
essun programma memorizzato":Z=INKEY(200 
) : GOTO1130 


1110FOR 3%=1 TO K% :PRINT" "; 3%;STRINGS( 
3-LEN(STR$(3%)),CHR$3 2>;R$(3%): NE XT 
1120PROCinv:PRINTTRB(0^L%-1)" ScegLi iL 
nr. deL programma : UDU20: INPUT" "1% 

:IF I%<1 OR I%)K% PROCsound: GOTO 1120 EL 
SE PROCins 
1130 ENDPROC 
1140: 

1150 DEFPROCreg:A=OPENOUT"00":K%=0:REPE 
RT: K%= K%+1 :PRINTttR,A$(K%),B$(K%):UNTIL fl 
$(K%)» M " OR K%=19:CLOSE#A:ENDPROC 
1160 : 

1170 DEFPROClet: fi = OPENIN"00":K%=0: REPER 
T:K%=K%+1:INPUT«fl i R$(K%),B$(K%):UNTIL R$ 
(K%)=" M OR K%=19:CLOSEttR:ENDPROC 
1180: 

1190 DEFPROCcor:CLS:T$="# CORREZIONE DE 
LLR LISTA PROGRRMMI U n : 1%=LENT$:PRINTTRB 
(28-l%/2 t 0); :PROCd(T$):PRINTTRB(28-L%/2 , 
2)STRINGS(1%,CHR$130):ENDPROC 
1200: 

1210 DEFPROCins 

1220CLS:T$="# AGGIORNAMENTO DELLA LISTA 
PROGRRMMI »":l%=LENTS:PRINTTRB(28-L%/2, 
0) ; :PROCd(TS):PRINTTRB(28-l%/2,2)STRINGS 
(1% ; CHRS130):IF A=0 THEN W%=1 ELSE W%=K% 
+ 1 

1230PRINTT RB(1^ 3)"IL nome_file deve co 
rrispondere esattamente a quellocon cui 
il programma e'stato registrato sul disc 
hetto in questa Directory:" 

1240PRINTTRB(0,7)"Inserisci il nome_fil 
e: " ; : IF dec = 2 THENPROCinv:PRINT"(files 
esistenti)":PRINTTRB(10,8)BS( 1% ):VDU20 
12 5 0PRINTTRB(9,10); :INPUTLINEXS:IF X$=" 
" OR LEN(X$)>10 PROCsound:PRINTTAB(8,10) 
STRINGS(3 0,CHR$32): GOT012 50 
1260fì=OPENIN(X$):IF A>0 CLOSEttfì:BS(W%)= 
XS ELSE PROCsound:PRINTTRB(0 , 10)" In que 
sta Directory non esistono programmi di 

nome:. ";XS:Z=INKEY(200):PRINTTRB(0 

,9)STRING$(240 t " "):GOTO1230 
1270PRINTTRB(0 i 13)"Inserire iL nome com 
pleto del programma";TRB(0 , 17)CHRSI 39 ;SP 
C30;CHR$139;:IF dec=2 PROCinv:PRINTTRB(0 
,14)R$(I%)+STRING$(32-LEN(fl$(I%)),CHR$32 
):UDU2 0 

1 280INPUTLINE TRB(0,16)XS: IF X$ = "" OR L 
EN(XS)>32 PROCsound:PRINTTRB(0,16)STRING 
$(32 , CHRS32): GOT0128 0 
1290IF dec=2 THEN fi$(1%)=X$:PROCreg ELS 
E A$(W%)=X$:PROCreg 
1300 CLS:ENDPROC 
1310: 

1320 DEFPROCfine:PROCsound:BS=" FINE DE 
LLR SESSIONE DI LAVORO ":x%=23 :y% = 20 : PRO 
Cwind__t esto :PROCcasella(x% > y% J B$) : PROCma 
rca:OSCLI"FX4,0":OSCLI"KEY 9 END":OSCLI" 
DIR" : END 


1330 : 

1340 DEFPROCmenu:PROCwind_testo:PROCsch 
ema:PROCexec:ENDPROC 
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Olivetti 


PRODEST 



PC 128s 


Presentiamo in questo numero la 


versione computerizzata di un classico gioco da tavola che certa - 
di ENRICO FABRIZI mente molti lettori conosceranno: I 9 affascinante Dama Cinese 


Dama Cinese 


uesta versione del gioco, prevede l'incontro fra 2 o 4 
à giocatori, oppure di uno solo contro il computer. Le 

I—■ I re 9 ole sono mo| t° semplici: il campo di gioco è sud- 
diviso in 4 colori ciascuno con 6 palline. Le palline 
sono inizialmente schierate sulla posizione diame¬ 
tralmente opposta a quella del colore di appartenenza: il gioco 
consiste nel muoverle fino a sistemarle tutte in posizione analoga a 
quella di partenza, ma nel settore contrassegnato con lo stesso co¬ 
lore. I colori muovono a turno: nel gioco fra due persone o contro il 
computer, ciascun concorrente possiede una coppia di colori, 
mentre nel gioco fra 4 persone ciascuna ne possiede uno solo. 
Ad ogni turno può essere giocata solo una pallina. La mossa può 
consistere nello spostare la pallina scelta in una casella vuota im¬ 
mediatamente adiacente, oppure nel farla “saltare" sopra le altre, 
di qualunque colore esse siano. 

Sia gli spostamenti che i salti possono essere eseguiti in tutte le di¬ 
rezioni ma, mentre i primi sono limitati ad una sola casella, i secon¬ 
di non hanno limite numerico e ne possono essere effettuati molti in 
successione. Per poter saltare sopra ad una pallina occorre che la 
casella immediatamente successiva nella stessa direzione sia vuo¬ 
ta: in quest'ultima casella dovrà essere posizionata la pallina mos¬ 
sa e da lì partire per un eventuale successivo salto, sempre secon¬ 
do le stesse regole, ma anche in direzione diversa. Nel caso di parti¬ 
ta fra 4 giocatori, vince il primo che riesce a sistemare tutte le 6 pal¬ 
line nella posizione finale; negli altri due casi, poiché ciascun gio¬ 
catore possiede una coppia di colori, la partita è vinta dal primo 
che li completa entrambi: la mossa che spetterebbe al colore com¬ 
pletato per primo viene automaticamente saltata. Le scelte vengo¬ 
no operate muovendo mediante il tastierino numerico un indice a 
forma di croce; occorre per prima cosa selezionare la pallina da 
muovere posizionando su di essa il cursore e premendo "RE¬ 
TURN". Successivamente l’indice può essere spostato nella o nelle 
posizioni successive e la posizione stessa memorizzata mediante la 
barra spaziatrice. 

Nel caso di semplice movimento sulla casella adiacente, la selezio¬ 
ne della posizione provoca l’automatica esecuzione della mossa. 
Se, invece, la mossa memorizzata prevede un salto, il cursore mar¬ 
ca la posizione prescelta e può essere via via spostato in quelle 
successive fino ad esaurimento di tutti i salti possibili. Dopo l’ultima 
memorizzazione la pressione del tasto "RETURN” fa spostare la 
pallina lungo tutto il percorso selezionato. È inutile sottolineare che 
il computer rifiuta tutte le selezioni non conformi alle regole. 

È possibile in qualunque momento annullare un percorso, già me¬ 
morizzato ma ancora non eseguito, premendo il tasto "DELETE”. 


STRUTTURA DEI PROGRAMMA 

70-120: 

Dimensionamento vettori, lettura dati, definizione dell'inviluppo sonoro 
per l’esecuzione del commento musicale e presentazione grafica 

130-150: 

Inizializzazione della partita con gioco contro il computer 
160-230: 

Inizializzazione della partita con una coppia di giocatori 
240-310: 

Inizializzazione della partita con 4 giocatori 
320-350: 

Routine "mossa al giocatore", scelta del colore di turno 
360-410: 

Scelta delle procedure di gioco in relazione al tasto premuto 
420: 

Spostamento del cursore su una casella adiacente 
430: 

Controllo deH'avvenuta selezione della pallina da muovere 
440-540: 

Controlli della correttezza della posizione memorizzata 
550-560: 

Esecuzione del percorso scelto dopo la seconda pressione di "RE¬ 
TURN” 

570-650: 

Controllo dell’eventuale completamento di uno o più colori 
660-720: 

Routine di fine partita 
730-890: 

Routine "gioco computer": mossa al nero. Controllo della possibili¬ 
tà di eseguire salti nella direzione del proprio colore: in caso favore¬ 
vole viene scelto il percorso che arriva alla posizione più avanzata 

900-970: 

In caso di impossibilità per tutte le palline di eseguire salti, viene 
controllata la possibilità di spostamento di una casella in avanti 

980-1030: 

In caso di fallimento di entrambe le possibilità precedenti, viene 
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scelta una pallina da spostare lateralmente. Tale routine viene pre¬ 
valentemente utilizzata verso il termine della partita quanto molte 
posizioni terminali sono ormai occupate 

1030-1330: 

Routine "gioco computer”: mossa al giallo. Tale routine ricalca fe¬ 
delmente quella della mossa al nero e la necessità di averne una 
separata dipende dall’opposto verso di spostamento delle palline 
dei due colori 

1340-1400: 

Procedure sonore e di rallentamento dell’esecuzione del programma 
1410-1460: 

Stampa del quadro di gioco 
1470-1480: 

Identificazione del giocatore cui è assegnato il colore in gioco 
1490: 

Cancellazione della parte di schermo ove appaiono i messaggi 
1500-1530: 

Procedura per la stampa del cursore 
1540-1850: 

Procedure che controllano la correttezza di una nuova posizione 
del cursore 

1860-1870: 

Procedura che, durante l’esecuzione delle mosse, calcola la posi¬ 
zione della pallina sullo schermo grafico a partire dalle coordinate 
logiche sul campo di gioco 

1880-1920: 

Procedura per la cancellazione di un percorso memorizzato ma 
ancora non eseguito 

1930-1950: 

Esecuzione del sottofondo musicale 
1960-2040: 

Stampa presentazione grafica e quadro istruzioni 
2050-2130: 

Assegnazioni e controlli ricorrenti di variabili durante la mossa da 
parte del computer e pertanto assegnate a procedure 

2140-2160: 

Routine controllo errori 
2170-2220: 

Routine controllo dati numerici 
2230-2410: 

Dati numerici per la stampa grafica del campo di gioco, per le posizio¬ 
ni di partenza e di arrivo delle palline e per l’esecuzione della musica. 

AVVERTENZE IMPORTANTI 

1 - Premendo il tasto “ESCAPE" durante l'esecuzione, la routine 
controllo errori di riga 2160 provoca l’interruzione del gioco e il ri¬ 
chiamo automatico dalla directory principale di un programma 
“MENU” in essa eventualmente presente (cfr. "Super directory” 
pubblicato nel numero 4 di aprile 1988) 

2 - Il buon funzionamento del programma dipende strettamente 


10REM*** 

20REM*** DAMA CINESE 

30REM*** EN.FA.6OFT-1909 

40REM*** PC 120-6 

50REM*** OLIVETTI PRODEST 
60REM*** 

70*FX4,1 

0OONERRQRGOTO2140 
90DIMG$( 4) ,C0L%(4) ,C0L$(4) , SC%( 4) , P%( 
0,0) , X%( 50) , Y%(50) , VI N%( 4) , N%( 136) , SN%( 6 
) , DN%( 6) , SG%( 6) , DG%( 6) , SX%( 6,20), DX%( 6,2 
O) , JMP%(7) 

1OORESTORE220O:F0RK%-1T04:READCOL$(K%) 

:NEXT:REST0RE2330:FORK%-1TO136 :READN%( K% 
):NEXT 

11OENVELOPE1,1,2,0,0,2,0,0,IO,IO,-5,-1 
O,00,00:ENVEL0PE2,0,0,0,0,0,0,0,60,0,0,0 
,126,126 

120MODE 129 :VDU23,11 :PROCpres 
1 300SCLI ”FX15" : MODE 1 35 : VDU23 , Il :FORK%- 
1T02:PRINTTAB(12)CHR$141CHR$133"DAMA CI 
NESE":NEXT:PRINTTAB(0,4)CHR$130”Vuoi gio 
core contro di me? (S/N)":Z-GET:IFZ-03OR 
Z-115 ELSE 160 

140PRINT''CHR$132"Inserisci il tuo nom 
e (max.0 lettere) VDU23,1,11 : INPUT''TA 
B( IO) ”"G$: VDU23, 1| : PR0C6C__1 : IFLENG$>0G$- 
LEF T $(G$,0) 

150C0L%( 1)-0:C0L%( 2) -2 :COL%( 3) - 1 :COL%( 
4)-3:NG%-1:F0RK%-1T02:G$(K%)-“PC-120 S": 
G$(K%+2)-G$:NEXT:REST0RE2410 :FORK%-1T06: 
READSN%( K%) , DN%( K%) : SG%( K%) -DN%( K%) : DG%( 
K%)-SN%( K%) :NEXT:G0T0320 

160PRINTTAB(0,4)CHR$129”Inserire il nu 
mero di giocotori (2-4)":Z-GET:IFZ<>50AN 
DZ<>52PR0CSG:GOTO 160 

170PR0CSA:IFZ-50 EL6E240 
10ONG%-2:PRINTTABC0,6)CHR$130”Inserire 
i nomi (mox.0 lettere)":VDU23,1,1I:FORK 
%-1T03STEP2:INPUT'TABCIO)”"G$(K%):PROCSA 
:IFLENG$(K%)>0G$(K%)-LEFT $(G$(K%) ,0) 

190G$(K%+1)-G$(K%) :NEXT:VDU23, 1| :PRINT 
TAB(0,6)6TRING$( 255,” ”) :PRINTTABC 0,6)”Q 
uale coppio di colori sceglie ”G$(1)”7” 
200PRINT''CHR$131”1 - Già 11o/Nero":PRI 
NT'CHR$129”2 - Rosso/Blu” 

210Z-GET:IFZ<490RZ>50PR0C6G:G0T0210 
220IFZ«49C0L%C 1)-2:C0L%(2)-0:C0L%(3)- 1 
:COL%(4)"3 ELSE COL%( 1)-1 :COL%(2)-3 :COL% 
(3)"2 :COL%(4)-0 

230PR0CSC_1:G0T0320 

240NG%-4:F0RK%-1T04:SC%(K%)--1:NEXT:FO 
RK%-1T04:F0RJ%-0T04:PRINTTABC 0,6 + J%*3)ST 
RING$( 120,” H ) :NEXT J% 

250PRINTTABC0,6)CHR$130”Giocotore n. ” 
;K%:VDU23,1, 11 :PRINT''CHR$133; ; INPUT”Nom 
e ”G$(K%) :IFLENGSC K%)>0G$(K%)-LEFT$(G$C K 
%) ,0) 

260PR0CSA:VDU23, 1| :PRINT' 'CHR$129G$(K% 
)”, scegli un colore”FORJX*1T04:IFSC%C 
J%)--1 ELSE 200 

270PRINTTABC 10)CHR$130 ;J%” - ”COL$fJ%) 
280NEXTJ% 

290Z-GET:IFZ<490RZ>52PR0CSG:G0T0290 
300IFSC%C Z-40)>-1PR0CSG:G0T0290 
31OCOL%(K%)"Z-49:SC%(Z-40)-0:PROCSA:NE 
XTK% 

32OMODE 129 :VDU23, 11 23,2,20,70,20,70,20 
,70,20,70:PROCquad 

330PR0GX-RNDC 4)-1 :PROCidgioc:VDU17,120 
: PROCmsgC‘‘Inizia la partita il ”+COL$CPR 
OG%+1)+”: ”+G$CGL%) ,2) :PROCSC_1 :PROCWC IO 
0):PROCcanc 

340PR0Cmsg( “Tocca al " +COL$( PROG%-*-1 ) ♦ " 
: ”+G$CGL%)+STRING$C 13," "),1):FORK%-OTO 
50 :X%CK%)--1 :Y%C K%)--1 :NEXT:CC%-0:IFNG%- 
1ANDGL%<3G0T0730 
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dalla esatta trascrizione dei "DATA” delle righe da 2230 a 2410. 
La routine da riga 21 70 a riga 2220 esegue un controllo di tutti i dati 
trascritti segnalando il tipo di errore di copiatura eventualmente 
commesso. Per utilizzare questo controllo, e vi consigliamo natu¬ 
ralmente di farlo, occorre avviare il programma con il comando 
GOTO 2170 invece del consueto RUN. 

3 - Alcuni comandi VDU del listato sono completati dal carattere 
speciale V reperibile sotto il tasto BREAK. Attenzione a non con¬ 
fonderlo con i due punti durante la copiatura! 

4 - Il comando *FX4,1 di riga 70 modifica i codici prodotti dai co¬ 
mandi del cursore e dal tasto "COPY" i quali, non appena il pro¬ 
gramma è passato in esecuzione, perdono la propria funzione ori¬ 
ginale per l'Edit del testo. Se si rende necessario modificare il con¬ 
tenuto di una riga di programma, occorre quindi, per evitare di ri¬ 
scriverla tutta, inserire il comando *FX4,0 che ripristina le normali 
funzioni dei tasti cursore e copy. 


350SX%-4:DX%-4:CN%-0:PROCindex( 2) 
360Z%-INKEY( 1) :IFZ%--1GOT0360 
370IFZ%-32G0T0430 
380IFZ%-127PR0Cdel:G0T0340 
3901FZ%"13G0T051O 
400IFZ%«53PR0CSG:G0T0360 
410IFZ%>48ANDZ%<58PR0Ctast ELSE PROCSG 
:GOT 0360 

420PR0Cindex(2) : SX%-SXN%:DX%-DXN%: PROC 
inde x(2) :G0T0360 

430IFCC%-0PR0CSG:VDU17,3 :PRINTTAB(0,30 
)"Primo di iniziare il percorso selezion 
a-re lo pollino do giocare con 'Return'" 
;:PROCW(100):PROCcanc:PROCindex(2):G0T03 
40 

4401F P%(SX%,DX%)>-1PROCSG:GOT0360 
4501FCN%>1 AND (ABS(SX%-X%(CN%))-1 OR 
ABS(DX%-Y%(CN%))-1)PROCSG:PROCindex(2) : S 
X%=X%(CN%) :DX%~ Y%(CN%) :PROCindex( 1) :GOTO 
360 

460IFABS(6X%-X%(CN%))>20RABS( DX%-Y%( CN 
%) )>2PR0CSG:G0T0360 

470IFABS(6X%-X%(CN%))-20RABS(DX%-Y%( CN 
%))-2PR0Cct ri :IFA-1PROCSG:G0T0360 

480CN%-CN%+1 :X%( CN%)-SX%:Y%( CN%)-DX%:P 
ROCindex(1) 

4901FCN%-1G0T0360 

500IFABSCX%( CN%)-X%(CN%-1))<2 AND ABS( 
Y%(CN%)-Y%(CN%-1))<2 ELSE 360 

510IFCC%«0ANDP%(SX%,DX%)<>PROG%PROCSG: 
PROCinde x(2) :G0T0350 

520IFCC%-0CC%-1:X%(1)-SX%:Y%(1)-0X%:CN 
%-1.PROCindex(1):G0T0360 

5301FCN%<2PROCSG:VDU17,2 :PRINTTAB( 0,30 
)"Memorizzare l'ultimo posizione primo d 
i premere 'Return'";:PROCW(100) rPROCconc 
:GOT0360 

540PR0Cindex(2) 

550A-0:P%( X%( 1) ,Y%( 1))— 1 :REPEAT A-A+1 
: PROCjump(A) :MOVEX%,Y%:GCOL16,0 : PLOT 153, 
25,0:GC0L0,0:M0VEX%,Y%: PLOT 153,4,0 

560PR0CJ ump(A+1) :PROCSA:MOVEX%,Y%:GCOL 
0,PR0G%:PL0T153,25,0:PR0CW( 15) :UNTILX%(A 
+ 2)<0 :P%(X%(A+1) ,YX(A + 1))-PROG% 

570REST0RE2320:F0RK%-0T03:VIN%(K%)-1:F 
0RJ%-1T06:READA%,B%:IFP%(A%,B%)<>K% VIN% 
(K%)-0 

580NEXTJ%,K%:IFNG%<4 ELSE 640 


590IFVIN%( 0)- 1ANDVIN%(2)•1PR0G%-0: GOTO 
660 

600IFVIN%(1)-1ANDVINXf3)-1PR0G%-1:GOTO 
660 

61OPROG%“PROG%+1 : IFPROG%>3PR0G%-0 
620IFVIN%(PROG%)=1G0T0610 
630PR0CSC:PROCidgioc:PROCcanc:G0T0340 
640VIN%--1:F0RK%-0T03:IFVIN%( K%)-1VIN% 
-K% 

650NEXT:IFVIN%>-1PROG%*VIN% ELSE 610 
660PR0Cidgioc:PR0CSC_1 :PR0CSC_1 :PROCms 
g("Vince lo partito "+G$(GL%)+STRING$(14 
," ") ,2) :VDU17,1 :PRINTTAB(0,31)"Un'altra 
partita? (S/N)"; 

670Z■INKEY( 1) :PROCmus:IFZ-B30RZ- 115 GO 
T 0690 

680IFZ-780RZ-11OOSCLI"FX15":G0T02140 E 
LSE 670 

690PR0CSA:VDU17,2:PRINTTAB(0,31)"Stess 
i giocatori? (S/N)"; 

700Z“INKEY( 1) :PROCmus:IFZ-830RZ-115 EL 
SE 720 

71006CLI”FX15":IFNG%-1 GOTO 150 EL6E 320 
720IFZ-780RZ-11OCLEAR:OSCLI"FX15";GOTO 
90 ELSE 700 

730PSZ%-0:IFPR0G%-0 ELSE 1040 
740F0RNP%-1T06 :QF%-0 

750F0RJ%-1T020:SX%(NP%,J%)--1:DX%(NP%, 
J%)--1 :NEXTJ%;PR0C_2:SX%( NP%, 1)-SX%:DX%( 
NP%,1)-DX%:NM%-1 

760IFSX%<20RDX%>6G0T0790 
770IFP%(SX%-1,DX%+1).-10RP%( SX%-2,DX%+ 
2)>-1G0T0790 

70ONM%-NM%+1 :SX%-SX%-2:DX%«DX% + 2:SX%( N 
P%,NM%)“SX%:DX%(NP%,NM%)-DX%:QF%-QF%+2:G 
OT 0760 

790IFDX%>6G0T0820 

800IFP%(SX%,DX%+1)1ORP%(SX%,DX%+2)>- 
1GOT 0820 

810NM%-NM%+1:DX%*DX%+2:SX%(NP%,NM%)-SX 
% : DX%(NP%,NM%)-DX%:QF%-QF%+1 :G0T0760 
820IFSX%<2G0T0850 

830IFP%(SX%-1,DX%)■-1ORP%(SX%-2,DX%)>- 
1G0T0850 

840NM%-NM%+1 :SX%-SX%-2:SX%( NP%,NM%)-SX 
%:DX%(NP%,NM%)-DX%:QF%-QF%+1:G0T0760 

850IFNM%-1JMP%(NP%)-0 ELSE JMP%(NP%)-Q 
F%:P6Z%-1 

860NEXTNP%:IFPSZ%-0G0T0900 
870SCL%-0:FORNP%-1T06:IFJMP%( NP%)«OGOT 
0890 

08OIFJMP%(NP%)>SCL% SCL%«NP% 
890NEXTNP%:K%»0:REPEAT K%«K%+1:X%(K%)- 
SX%(SCL%,K%):Y%(K%)-DX%(SCL%,K%) rUNTILSX 
%(SCL%,K%+1)«-1 :SN%(SCL%)-X%(K%):DN%(SCL 
%) -Y%(K%) :GOT 0550 
9Q0F0RNP%-1T06 

910PR0C_2 :PR0C_3:IFSX%<10RDX%>7G0T0930 
920IFP%(SX%-1,DX%+1)<0PSZ%-1:X%(2)-SX% 
-1:Y%(2)-DX%+1:SCL%“NP%:NP%-6:GOT0970 
930IFDX%>7G0T0950 

940IFP%( 6X%,DX% +1)<OPSZ%-1 :X%( 2)-SX%:Y 
%( 2)-DX%+1:SCL%-NP%:NP%-6:G0T0970 
950IFSX%<1GOT0970 

960IFP%(SX%-1,DX%)<0PSZ%-1:X%(2)-SX%-1 
:Y%(2)-DX%:SCL%-NP%:NP%-6 

970NEXTNP%: IFPSZ%*0 ELSE PR0C__4 : G0T055 

0 

980NP%=*RND( 6) : PR0C_2 : PR0C_3 : IFSX% + DX%> 
-8G0T01010 

990IFSX%>70RDX%>7GOTO1030 
10001FP%(SX%+1,DX%+1)<0X%( 2)-SX%+1 :Y%( 2 
)-DX%+1:6CL%-NP%:NP%-7:G0T01030 
1010IFSX%<10RDX%<1 GOTO 1030 
1020IFP%(SX%-1,DX%-1)<0X%( 2)-SX%-1 :Y%( 2 
)-DX%-1:SCL%“NP%:NP%-7 
1030IFNP%>6ANDX%( 2) >-1PR0C_4;G0T0550 EL 


e 
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SE 980 

1040F 0RNP%=1T06:QF%=0 

1050FOR J%-1T020:SX%( NP%,J%)«-1 :DX%(NP%, 
J%)--1 :NEXT J%:PR0C_2G:SX%(NP%, 1)-SX%:DX% 
(NP%,1)= DX%:NM%*1 
1060IFSX%>60RDX%<2G0T01090 
1070IFP%(SX%+1 ,DX%-1)■-1ORP%( SX%+2,DX%- 
2)>-1 GOTO 1090 

1080NM%-NM%+1 :6X%-SX%+2:DX%-DX%-2:SX%( N 
P%,NM%)-SX%:DX%( NP%,NM%)-DX%:QF%«QF% + 2:G 
OT01060 

1090IFSX%>660T 01120 

1100IFP%(SX%+1 ,DX%)--1ORP%( SX%+2,DX%)>- 
1 GOTO 1120 

111ONM%-NM%+1 :SX%-SX%+2:SX%( NP%,NM%)-SX 
% :DX%(NP%,NM%)-DX%:QF%-QF%+1 : GOTO 1060 
1120IFDX%<2G0T01150 

1 1301FP%(6X%,DX%-1)- -1ORP%( SX%,DX%-2)>- 
1 GOTO 1150 

1 140NM%-NM%+1 :DX%-DX%-2:SX%( NP%,NM%)-SX 
% :DX%(NP%,NM%)-DX%:QF%-QF%+1 : GOTO 1060 
1150IFNM%»1JMP%( NP%)=0 ELSE JMP%(NP%)-Q 
F%:PSZ%-1 

1160NEXTNP%:IFPSZX-OGOTO1200 
1170SCL%-0:FORNP%-1T06:IFJMP%( NP%) -OGOT 
01190 

1180IFJMP%(NP%)>SCL% SCL%-NP% 

1190NEXTNP%:K%-0:REPEAT K%«K%+1:X%(K%)- 
SX%(SCL%,K%):Y%(K%)»DX%(SCL%,K%):UNT1LSX 
%(6CLX,K%+1)—1 :SG%(SCL%)-X%( K%) : DG%(SCL 
%)- Y%(K%):G0TC550 
1200F0RNP%-1T 06 

1 2 1 0PR0C_2G : PR0C_3: IF6X%>70RDX%< 1 GOTO 1 2 
30 

1220IF P%(SX%-*-1 ,DX%-1) <0PSZ%=1 :X%(2)-SX% 
+ 1 : Y%(2)-DX%-1 :SCL%-NP%:NPX-6: GOTO 1270 
1230IFSX%>7G0T01250 

1240IFP%(SXX+1,DX%)<0PSZ%-1:X%(2)-SX%+1 
: Y%( 2)-DX%:SCL%-NP%:NP%-6: GOTO 1270 
1 2501FDX%<1 GOTO 1270 

12601FP%(SX%,DX%-1) <OPSZ%-1 :X%(2)-SX%:Y 
%(2)-DX%-1 :SCL%-NP%:NP%-6 
1270NEXTNP%:IFPSZ%-0 ELSE PR0C_4G:G0T05 
50 

120ONP%-RND(6):PR0C_2G:PR0C_3:IFSX%+DX% 
>=8G0T01310 

1290IFSX%>70RDX%>7G0T01330 
13001F P%(SX%+1 ,DX% +1) <0X%(2)-SX%+1 : Y%( 2 
)-DX%+1 :SCL %-N P%:N P%-7: GOTO 1330 
131OIFSX%<10RDX%<1 GOTO 1330 
13201FP%(SX%-1,DX%-1)<0X%(2)-6X%-1:Y%(2 
)-DX%-1:SCL%=NP%:NP%=7 
1330IFNP%>6ANDX%( 2) >-1PR0C 4G:G0T0550 E 
LSE 1280 

1340DEFPR0CSG SOUND 1 ,-10,20,5 : ENDPROC 
1350DEFPR0CSA SOUND 1 , 1,200,5 :ENDPROC 
136GDEFPR0CSC F=RND(1):IF F<.SG0T01380 
1370F0RNT%=QT0250STEP20: SOUND 1 ,1,NTX,1: 
NEXTNr%:ENDPROC 

1380F0RNT%-250T00STEP-20: SOUND 1,1,NT%,1 
:NEXTNT%:ENDPROC 

1390DEFPR0CSC_1 F0RNTX-52T0100STEP4:SOU 
ND1,1,NT%, 1 :NEXTNTX:ENDPROC 
1400DEFPR0CW(W%) FORW1%=1TOW%*100 :NEXTW 
1 % :ENDPROC 

1410DEFPR0Cquad VDU19,3,4|18,64,128,24, 
0 ; 96 ; 1279; 1023; 16,26 :REST0RE2240:FORQ%-1 
T061:READA%,B%,C%:IFA%-OGCOLB%,C% ELSE P 
LOTA%,B%,C% 

1420NEXT:VDU17,2,17,128:M$-”D A M ACINE 
SE”:FQRQ%=1 T07:PRINT TAB(31+Q%,5+QX)MID$( 
M$,Q%, 1) :NEXT:F0RQ%-8T013 :PRINTT AB( 24 + QX 
,7 + Q%)MID$( M$,Q%, 1) :NEXT 
1430GC0L0,0 :F0RK% = 0108 :F0RJ%=0T08:P%( K% 
, J%) »-1 : M0VE500+50*( J%-K%) , 150 + 50*( J%+K% 
):PLOT153,4,0:NEXTJ%,K% 

1440REST0RE2300:F0RK%=0T023:READX%,Y %,A 


%,B%:SCOLO,INT(K%/6) :MOVEX%,Y%:PLOT 153,2 
5,0:P%(A%,B%)-INT(K%/6):NEXT 
1450REST0RE2290:VDU17,3,17,130:F0RK%-0T 
03 : READXX,Y%:FORJ%-1T04:IFCOL%(JX)-KXPRI 
NTTAB(X%,Y%)G$(J%) 

1460NEXTJX,K%:ENDPROC 

1470DEFPR0Cidgioc GL%-0:REPEAT:GLX-GLX+ 
1 :UNTILPROG%-COL%(GL%) :ENDPROC 
1480DEFPR0Cmsg(M$,M%) VDU 1 7,M%:FORL%-IT 
OLENM$:PRINTTAB(L%-1,29)MID$(M$,L%, 1 ) ; :P 
ROCW(1):NEXTL%:PROCSA:ENDPROC 
1490DEFPR0Cconc VDU17,128,28,0,31,39,30 
,12,26:ENDPROC 

1500DEFPR0Cindex( I) IP%-ABS( SX%-DX%) :IF 
SX%-DX%IG%-DX% ELSE IFSX%>DX%IG%«DX% ELS 
E IG%-SX% 

1510X%-500-50*SX% + 50*DX%: Y%-150 + 50-»IP%4- 
100*IG%:M0VEX%-24,Y%-7: IFI* 1GCOLO,P%( SX% 
,DX%)+2:PLOT97,40,14 ELSE PLOT90,40,14 
1520M0VEX%-7,Y%-24:IFI-1PL0T97,14,40 EL 
SE PLOT 98,14,48 
1530ENDPR0C 

1540DEFPR0Ctast Z%-Z%-48:IFZ%-1SXN%-6X% 
:DXN%-DX%-1 :GO T 01620 
1550IFZ%-2SXN%-SX%-1:DXN%-DX%-1:G0T0162 

0 

1560IFZ%-3SXN%-6X%-1 :DXN%-DX%: GOTO 1620 
1570IFZ%-4SXNX-SX%+1:DXN%-DX%-1:G0T0162 

0 

1580IFZ%-6SXN%-SX%-1:DXN%-DX%+1:G0T0162 

0 

1590IFZ%-7SXN%-SX%+1 :DXN%-DX%:GOTO 1620 
1600IFZ%-8SXN%-SX%+1:DXN%-DX%+1.G0T0162 

0 

1610IFZ%-9SXN%-SX%:DXN%-DX%+1 
1620IFSXN%<0SXN%-0 
163OIFSXN%>0SXN%-0 
1640IFDXN%<0DXN%-0 
16501FOXN%>0DXN%-0 
1660ENDPR0C 

1670DEFPR0Cctrl A-0:X-X%(CN%):Y-Y%(CN%) 
1680IFSX%=X AND DX%-Y-2 G0T01780 
1690IFSX%-X+2 AND DX%-Y-2 G0T01790 
1700IFSX%-X+2 AND DX%-Y G0T01800 
17101FSX%-X + 2 AND DX%-Y + 2 G0T01810 
1720IFSX%-X AND DX%-Y+2 G0T01820 
1730IFSX%=X-2 AND DX%-Y+2 G0T01830 
1740IFSX%=X-2 AND DX%=Y G0T01840 
1750IF6X%-X-2 AND DX%-Y-2 G0T01850 
1760A-1 
1770ENDPR0C 

1780IFP%(X,Y-1)<0 A-1 : GOTO 1770 ELSE 177 

0 

1790IFP%(X+1,Y-1)<0 A=1 : GOTO 1770 ELSE 1 
770 

1800IFP%( X-^1 , YJ <0 A- 1 : GOT01770 EL6E 177 

0 

1810IFP%(X+1,Y + 1)<0 A-1 : GOTO 1770 ELSE 1 
770 

1820IFP%(X,Y + 1)<0 A-1 : GOT01770 ELSE 177 

0 

1830IFP%(X-1,Y + 1)<0 A-1 : GOTO 1770 ELSE 1 
770 

1840IFP%(X-1,Y)<0 A-1 : GOTO 1770 ELSE 177 

0 

1850IFP%(X-1 ,Y-1)<0 A-1 :GOT01770 ELSE 1 
770 

1860DEFPR0Cjump(B) IP%-ABS( X%( B)-Y%(B)) 

:IFX%(B)=Y%( B)IG%=Y%( B) ELSE IFX%( B)>Y%( 
B)IG%-Y%(B) ELSE IG%=X%(B) 
1870X%-500-50*X%(B)+50*Y%(B):Y%=150+50^ 
IP%+100*1G%:ENDPROC 

leeODEFPROCdel IFCN%-OPROCSG:PR0Cindex( 
2) .-ENDPROC 

1890VDU17,2:PRINTTAB(0,31)"Annuilamento 
scelte”;:PROCW(30):PROCindex(2):MOVEX%, 
Y%:GC0L16,0:PLOT 153,25,0 :GCOLO,0 :MOVEX%, 
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Y%: PLOT 153,4,0 

1900F0RB%-CN%T01STEP-1 :PHOCJump(B%) :IFP 
%( X%( B%) , Y%( B%) ) > — 1 6C0L0 , P%( X%( B%) , Y%( B% 
)) :MOVEX%,Y%:PL0T153,25,0:GOTO 1920 
1910GC0L16,0:M0VEX%,Y%: PLOT 153,25,0 :GCO 
LO,0 :MOVEX%,Y%: PLOT 153,4,0 
1920NEXTB%:PROCcanc:ENDPROC 
1930DEFPR0Cmu s MUS%-MUS%+1:IFMUS%-137MU 
S%=1 

1940IFMUB%<136S0UND1 , 1 , N%( MUS%) ,2 : SOUND 
2,2,N%(MUS%)+48,2 :S0UND3,2,N%( MUS%) +50,2 
ELSE SOUND 1, 1,N%(MUS%) ,8 :S0UND2,2,N%(MU 
S%)+48,8:S0UND3,2,N%( MUS%)+50,8 
1950ENDPR0C 

1960DEFPR0Cpres REST0RE2360:F0RK%-1T077 
:READA%,B%,C%:IFA%-OGCOLO,C% ELSE PLOTA% 
,B%,C% 

1970PR0Cmus:NEXT:VDU17,2:PRINTTAB( 22,28 
)CHR$135” EN.FA.SOFT-1989":VDU17,1:PRINT 
TAB(0,31)"Premi un tasto"; 

1980REPEAT Z-INKEY(1):PROCmus:UNTIL Z>- 
1:VDU23,200,252,248,240,248,220,142,7,3, 
23,201,63,31,15,31,59,113,224,192,23,202 
,3,7,142,220,248,240,248,252,23,203,192, 
224,113,59,31,15,31,63 
1990VDU23,204,24,60,126,255,24,24,24,24 
,23,205,24,24,24,24,255,126,60,24,23,206 
,8,12,14,255,255,14,12,8,23,207,16,48,11 
2,255,255,112,48,16 

2000CL6:VDU17,3:PRINTTABC 15,0)"ISTRUZIO 
NI":VDU17,1 :PRINTTAB(0,7)"Movimento curs 
ore" .-PRINTTABC 0,14) "Selezione pallino" :P 
RINT'"do giocare":PRINT '''"Memorizzazion 
e":PRINT'"de 1 lo posizione" 

201 OPRINT'''"Cancellazione scelto":VDU1 
7,2:PRINTTABC 23,4)CHRS200" "CHR$204" 
CHR$201:PRINTTAB(24,5)"7 8 9":PRINTTABC2 
3,7) CHR$207"4 6"CHR$206:PRINTTABC24,9) 

"1 2 3":PRINTTABC23,10)CHR$202" ”CHR$20 

5" "CHR$203 

2020PRINTTABC 24,15)"RETURN":PRINTTABC20 
,21) "BARRA SPAZIATRICE" .-PRINTTABC 24,26) " 
DELETE":PRINTTAB(1,30)"Premi un tasto" 
2030REPEAT Z-INKEYC1):PROCmus:UNTIL Z>- 

1 

2040ENDPROC 

2050DEFPR0C_1 CTRL-0:REST0RE2410 :FORJ%- 
1T06 :READA%,B%:IFA%«DN%C NP%)ANDB%-SN%C NP 
%)CTRL"1 

2060NEXTJ%:ENDPROC 

2070DEFPR0C_2 SX%-SN%CNP%):DX%-DN%( NP%) 
.-ENDPROC 

2080DEFPR0C_3 X%(1)-6X%:Y%C1)-DX%:ENDPR 
OC 

2090DEFPR0C_4 SN%C SCL%)-X%(2) :DN%( SCL%) 
-Y%(2):ENDPROC 

2100DEFPR0C_1G CTRL-0:REST0RE2410 :FORJ% 
-1T06:READA%, B% :IFA%-SG%C NP%)ANDB%-DG%( N 
P%)CTRL-1 

21 10NEXTJ%:ENDPR0C 

2120DEFPR0C_2G SX%-SG%CNP%):DX%-DG%(NP% 
) .-ENDPROC 

2130DEFPR0C_4G SG%CSCL%) -X%( 2) :DG%( SCL% 
)-Y%(2):ENDPROC 

2140REM***R0UTINE CONTROLLO ERRORI*** 
2150IFERR<>17PRINT"Errore n. ";ERR;" su 
Ila riga ";ERL:REPORT:PRINT: END 
21600SCLI"DIR$” : CHAIN "MENU" 
2170REM***CQNTR0LL0 DATI*** 

218QM0DE135 :REST0RE2240:S%-0:K%=0:REPEA 
T K%-K%+1 : READA$ :FORJ%*1T0LENA$:6%"S%+AS 
CMID$CA$,J%,1):NEXTJ%:PRINTTABC0,12)K%,S 


%:UNTILA$="END" 

2190IFK%<719PRINT'''"Sono stati troscri 
tti "; 719-K%” datoCi) in meno":END 
2200IFK%>719PRINT'''"Bono stati trascri 
tti ";K%-719" datoCi) in piu'":END 
221 0IFS%<>78436PRINT'''"Uno o piu' dati 
sono stati trascritti in modo errato":E 
NO 

2220RUN 

2230REM-»**DATA NUMERICI*^* 

2240DATA 0, 16,0,4,500, 1000,4,50,550,117 
,500,100,0,32,0,4,50,100,4,50,500,85,450 
,100,4,50,600,4,50,1000,85,450,1000,4,55 
0,1000,4,950,1000,85,950,600,4,950,500,4 
,950,100,85,550,100 

2250DATA 0,0,3,4, 100,700,4, 100,850,85,2 
50,850,0,0,2,4,900,700,4,900,850,85,750, 
850,0,0,1,4,750,250,4,900,250,85,900,400 
,0,0,0,4,100,250,4,250,250,85,100,400 
2260DATA 0,0, 1,4,450,1000,4,350,900,117 
,400,900,4,500,1000,4,600,900,117,650,90 
0,0,0,0,4,850,700,4,850,650,117,950,550, 
4,850,450,4,850,400,117,950,500 
2270DATA 0,0,3,4,350,200,4,450, 100,117, 
500,100,4,600,200,4,500,100,117,550,100, 
0,0,2,4,50,550,4,50,500,117,150,400,4,50 
,600,4,50,550,117,150,650 
2280DATA Nero,Rosso,Gia 11o,B1u 
2290DATA 2,26,21,26,21,2,2,2 
2300DAT A 100,550,8.0, 150,500,7,0, 150,60 
0,8,1,200,450,6,0,200,550,7,1,200,650,8, 
2,500,150,0,0,450,200,1,0,550,200,0,1,40 
0,250,2,0,500,250,1,1,600,250,0,2 
23IODATA 900,550,0,8,850,500,0,7,850,60 
0,1,8,800,450,0,6,800,550,1,7,800,650,2, 
8,500,950,8,8,450,900,8,7,550,900,7,8,40 
0,850,8,6,500,850,7,7,600,850,6,8 
2320DATA 0,6,0,7,0,8, 1,7, 1,8,2,8,8,6,8, 
7,8,8,7,7,7,8,6,8,8,0,8,1,8,2,7,0,7,1,6, 
0,0,0,0,1,0,2,1,0,1,1,2,0 
2330DATA 96,80,68,96,80,68,96,80,68,96, 
80,68,88,68,48,80,68,48,80,68,48,76,48,3 
2,68,48,32,68,48,32,80,68,48,96,80,68,11 
6,96,80,116,86,80,116,96,80,116,96,80,10 
8,96 

2340DATA 80,100,80,68,100,68,52,96,68,5 
2,88,68,52,88,68,52,96,68,52,100,68,52,9 
6,76,64,100,76,60,96,76,60,112,76,64,100 
,76,60,96,76,60,96,80,68,88,68,48,80,68, 
48,80 

2350DATA 48,32,76,48,32,68,48,32,76,48, 
40,76,48,40,76,48,40,76,48,40,80,48,40,7 
6,48,40,68,48,32,68,48,32,68,48,32,68 
2360DATA 0,0,1,4,100,600,5,100,900,5,17 
5,900,5,250,600,5,100,600,4,150,650,5,15 
0,800,5,200,650,5,150,650,141,150,850,0, 
0,2,4,275,600,5,350,900,5,425,600,5,375, 

700.5.275.600.141.350.750 

2370DATA 0,0,3,4,450,600,4,450,900,85,5 
00,600,4,450,900,4,550,700,85,550,800,85 
,650,900,4,600,600,85,650,600,0,0,1,4,67 
5,600,5,750,900,5,825,600,5,775,700,5,67 

5.600.141.750.750 

2380DATA 0,0,2,4,250,500,4,400,500,85,2 
50,300,4,250,200,85,400,200,0,0,3,4,425, 
500,4,425,200,85,500,200,0,0,1,4,525,500 
,4,525,200,85,600,200,4,550,400,4,650,30 
0,85,640,350,4,600,500,4,675,500,85,675, 
200 

2390DATA 0,0,2,4,700,500,4,850,500,85,7 
00,400,4,850,400,85,700,300,4,850,300,85 
,700,200,0,0,3,4,1025,500,4,875,350,85,9 

50.350.4.1025.350.85.875.200 

2400DATA 0,0,1,4, 1050,500,4, 1200,500,85 
,1050,400,4,1200,400,85,1050,300,4,1200, 

300.85.1050.200 

24 IODATA 8,0,7,0,8, 1,6,0,7,1,8,2,END 
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Sistemi 

MSX 


Questo semplice programma vi per - 
metterà di copiare interi nastri pieni di programmi BASIC, BINARI 
o file ASCII, direttamente su disco in modo semplicissimo e senza 


di FRANCESCO DURANTI fatica 


Cas io Disk 


er far funzionare il programma vi basterà seguire le 
i ' seguenti istruzioni: 

1 j accendete il computer badando che rimanga atti- 
■ vo solo il Drive A (scollegate altri drive ed accendete 
il computer con il tasto CTRL abbassato, finché non verrà generato 
un BEEP) 

2) digitate il listato e salvatelo con il nome di “CAS2DSK.BAS” 

3) mandate in esecuzione il programma, dopo aver inserito nel dri¬ 
ve un disco su cui ci sia sufficiente spazio per memorizzare anche i 
file “CAS2DSK.G0!” e “CAS2DSK.BIN" (che saranno generati dal 
programma Basic) 

4) se si verificano errori correggeteli e risalvate il programma, dopo¬ 
diché ripartite dal punto 3 altrimenti eseguite il punto 5 

5) quando bisogna copiare il contenuto di un nastro su disco basta 
eseguire il punto 1 e mandare in esecuzione il file "CAS2DSK.GO!” 

6) inserite un disco vuoto già formattato nel drive, la cassetta da 
copiare nel registratore e premete il tasto PLAY 

7) se non c’è spazio sul disco, il computer vi darà un errore e vi dirà 
di cambiare disco 

8) quando trova un file il programma indica il nome ed il tipo del file 
e, se questo è senza header, allora viene ignorato. 

Il caricatore è stato progettato in maniera che vi sia un checksum 
per ogni linea DATA e, in caso di errori, vi dirà esattamente quale li¬ 
nea è sbagliata. 

Il programma copiatore è scritto completamente in assembler ed 
usa le routine del DOS per gestire gli errori con la possibilità di ri¬ 
provare l’accesso, di ignorare l’errore o di non eseguire affatto 
l’operazione su disco: in questo caso il controllo passa alla routine 
che legge il prossimo file da nastro. 

Il file che verrà salvato su disco assume lo stesso nome di quello su 
nastro (quindi attenzione a nomi che comprendono dei caratteri il¬ 
legali) più l’estensione “.BAS” per file basic, “.ASC" per file ascii e 
“.BIN” per file binari. 

Il programma è molto semplice ed è nato solo per facilitare l’opera¬ 
zione di Back Up di un nastro contenente programmi di vario tipo 
su disco, in modo da semplificare le varie operazioni necessarie. 


Unica pecca: non possono essere copiati file più lunghi di 23808 
byte, dato che il programma risiede in memoria all’indirizzo DD00H 
e che il file viene letto a partire dall’indirizzo 8000H. 

Non c’è bisogno di dire che deve essere utilizzato solo per uso per¬ 
sonale e per i propri programmi, e non per copiare programmi ori¬ 
ginali da nastro a disco (anche perché i programmi originali sono 
protetti e salvati in Turbo, quindi molto difficilmente copiabili se non 
si conosce a fondo il linguaggio macchina). 

Chi è interessato, può richiedere il programma alla Redazione o 
prelevare i file CAS2DSK.GO! e CAS2DSK.BIN da LIST BBS, in cui è 
stata predisposta un’area dedicata a messaggi e file riguardanti lo 
standard MSX. 

Ricordiamo i parametri per effettuare il collegamento: 

06/7665495 8N1 a partire dalle ore 18.00. 


1 CLEAF: 200,56063! sGOSUB 60010 
10 0PEINTCAS2DSK.G0! " FOR OUTPUT AS#1 
20 A$»CHR£<&H22) 

30 FRINT#1« " 10 SCREEN 0:WIDTH40:KEYOFF 


40 PRINT#1,"20 IF PEEK($<HFC4B>*256+PEE 
K(&HFC4A)<58000 ! THEN 50" 


CLEAR O" 

BL0AD"+A.$ + "CAS2DSK. BIN" 


50 PRINT# 1 , "30 
60 PRINT#1,"40 
+A*+”,R" 

70 PRINT#1,"50 BEEPs BEEP" 

80 PRINT# 1 , "60 L0CATE4,1 Os PRINT"+A$+"M 
EMQRIA INSUFFICIENTE: SPEGNI IL"+A* 

90 PRINT#1,"70 LQCATE4,11:PRINT"+A$+"C 
OliPUTER ED IL SECONDO DRIVE SE"+AS 
100 PRINT#1,"80 L0CATE4,12:PRINT"♦A**" 
COLLEGATO. ACCENDI IL. COMPUTER E"n-A^ 
110 PRINT#1,"90 L0CATE4,13:PRINT"+A$+" 
TIENI PREMUTO IL TASTO <CTRL>”+A* 

120 PRINT#1,"100 L0CATE4,14:PRINT"+A$+ 


"FINCHE' NON 
130 PRINT#!' 


PRINT#1,"120 


SENTI UN BEEP."+A^ 

110 BEEP:BEEP" 

GOTO 120" 

CLOSE#1 

BSAVE " CAS2DSK -BIN", &HDBOO, &HE06C , 
HDCAD 
170 END 

60010 RESTORE 61000:FOR N=56064! TO 57 


140 

150 

160 
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559! STEP 8 

60020 CK~0 

60030 FOR M=0 TO 7 

60040 IF N+M=57560! THEN 60120 

60050 READ A$ : A=V AL ( " &H " + ) 

60060 8K=8K+A 
60070 F'OKE N+M,A 
60080 NEXT 

60090 READ 8$: IF VAL < "&H" +8$) < >CK THEN 


60130 

60100 NEXT 
60110 RETURN 

60120 READ 8$: IF VAL ( "8<H 11 +8$) < >CK THEN 
60130 ELSE RETURN 

60130 PR1NT"ERRORE NEI DATA ALLA LINEA 
"61000 !+10*(N—56064 !)/8 


601 40 
61000 
61010 
61020 
61030 
61 040 
61050 
61 060 
61070 
61080 
61 090 
61100 
61 1 10 
61 120 
61 130 
61 140 
61 150 
61160 
6 1 1 70 
61180 
61 190 
61 200 
61210 
61220 
61230 
61240 
61250 
61 260 
61270 
61280 
61290 
61300 
61310 
61320 
61330 
61340 
61350 


END 

DATA 00,00,00,00,45,72,72,6F,198 
DATA 72,65,20,69,6E,20,73,63,2C4 
DATA 72,69,74,74,75,72,61,20,32B 
DATA 66,69,6C,65,OD,OA,00,45,1FC 
DATA 72,72,6F,72,65,20,69,6E,321 
DATA 20,61,70,65,72,74,75,72,323 
DATA 61,20,63,68,69,75,73,75,312 
DATA 72,61,20,66,69,60,65,OD,2A0 
DATA OA,00,56,75,6F,69,20,72,23F 
DATA 69,70,72,6F,76,61,72,65,368 

DATA 20,3F,20,28,53,2F,4E,29,1AO 
DATA 20,00, OD ,i)A», 43,61,6D, 62, 1AA 
DATA 69,61,20,64,69,73,63,6F,2FC 
DA rA 20,65,20,70,72,65,6D,69,2C2 
DATA 20,75,6E,20,74,61,73,74,2DF 
DATA 6F,OD,OA,00,46,69,60,65,206 
DATA 20,74,72,6F,70,70,6F,20,2E4 
DATA 6C,75,6E,67,6F,OD,OA,00,23C 
DATA 50,72,6F,67,72,61,6D,6D,345 
DATA 61,20,70,65,72,20,63,6F,2BA 
DATA 70,69,61,72,65,20,69,60,306 
DATA 20,63,6F,6E,74,65,6E,75,31C 
DATA 74,6F,OD,OA,64,65,69,20,24C 
DATA 6E,61,73,74,72,69,20,73,324 
DATA 75,20,64,69,73,63,6F,2E,2D5 
DATA OD,OA,OD,OA,44,61,20,75,168 
DATA 73,61,72,65,20,73,6F,6C,319 
DATA 6F,20,70,65,72,20,75,6E,2D9 
DATA 20,42,61,63,6B,2D,55,70,283 
DATA 20,64,69,20,64,61,74,69,2AF 
DATA 2E,OD,OA,OD,OA,44,69,20,129 
DATA 46,72,61,6E,63,65,73,63,325 
DATA 6F,20,44,75,72,61,6E,74,2FD 
DATA 69,20,70,65,72,20,4C,49,285 
DATA 53,54,OD,OA,OD,OA,00,4E,123 
DATA 6F,6D,65,20,3A,20,00,20,1DB 


61360 
61370 
61380 
61390 
61400 
61410 
61420 
61430 
61440 
61450 
61460 
61470 
61480 
61490 
61500 
61510 
61520 
61530 
61540 
61550 
61560 
6157*0 
61580 
61590 
61600 
61610 
61620 
61630 
61640 
61650 
61660 
61670 
61680 
61690 
61700 
6171 0 
61720 
61 730 
61740 
61750 
61760 
61770 
61780 
61790 
61800 
61810 
61820 
61830 
61840 
61850 
61860 
61870 
61880 
61 890 
61900 


DATA 20,46,69,6C,65,20,44,69,26D 
DATA 20,54,65,73,74,6F,OD,OA,246 
DATA 00,20,20,46,69,68,65,20,1EO 
DATA 42,69,6E,61,72,69,6F,OD,2D1 
DAT A OA,00,20,20,46,69,68,65,18A 
DATA 20,42,61,73,69,63,OD,OA,219 
DATA 00,46,69,68,65,20,53,65,258 
DATA 6E,7A,61,20,48,65,61,64,2DB 
DATA 65,72,OD,OA,00,45,72,72,217 
DATA 6F,72,65,20,64,69,20,68,2BF 
DATA 65,74,74,75,72,61,0D,0A,2A8 
DATA 00,DO,D3,EA,00,00,00,00,28D 
DATA 00,00,00,00,00,00,00,00,000 
DAT A 00,OD,OA,00,00,00,00,00,017 
DATA 00,00,00,00,42,41,53,42,118 
DATA 49,4E,44,41,54,41,53,43,247 
DATA 00,00,00,00,00,00,00,00,000 
DATA 00,00,00,00,00,00,00,00,000 
DATA 00,00,00,00,00,00,00,00,000 
DATA 00,00,00,00,00,00,00,00,000 
DATA 00,00,00,00,00,00,FE,FF,1FD 
DATA ED,73,8E,D8,2A,4A,F8,2B,465 
DATA F9,2A,23,F3,22,90,D8,21,3E8 
DATA D8,DF,22,23,F3,2A,E6,FI,4F4 
DATA 22,92,D8,21,8E,DF,22,E6,466 
DATA F1,DB,AS,32,02,DB,3A,FF,4B8 
DATA FF,2F,32,03,DB,21,90,DB,38A 
DATA 8D,73,DO,ED,73,88,D8,21,506 
DATA 78,D8,11,7D,D8,01,08,00,28F 
DATA 36,00,ED,BO,FB,06,88,76,412 
DATA 10,FD,F3,21,89,D8,8D,73,486 
DATA DD,8D,78,DD,06,03,21,79,3A6 
DATA D8,8D , A5 , DD , BE, 28,05,23,4i59 
DATA 10,FA,18,32,06,09,8D,A5,2D5 
DATA DD,BE,20,2A,10,F8,4E,21,358 
DA TA 78,D8,8D,AF,DD,79,11,42,47D 
DATA D8,FE,D3,28,22,11,1F,D8,403 
DATA FE,EA,2B<21,11,31,D8,8D,418 
DATA BB,DD,8D,78,DD,21,83,D8,53E 
DATA 8D,AF,DD,83,8A,DD,21,51,535 
DATA D8,8D,73,DD,83,FB,D8,8D,660 
DATA BB,DD,83,A2,DE,8D,BB,DD,640 
DATA 83,42,DE,7E,23,A7,88,8D,480 
DATA A2,00,18,F7,8D,E1,00,DO,42F 
DATA ED,7B,8E,D8,2A,90,D8,22,48A 
DATA 23,F3,2A,92,D8,22,E6,F1,4A7 
DAT A 21,00,80,11,01,80,01,00,134 
DATA 5B,36,00,ED,BO,8D,E7,00,3E2 
DATA 21,65,D8,18,8E,85,E5,8D,4BF 
DATA E4,00,E1,81,38,D2,89,06,45F 
DATA 06,E5,8D,A5,DD,77,23,10,3E4 
DATA F9,E1,89,D5,E5,21,17,£>8,571 
DATA 8D,73,DD,E1,8D,73,DD,E1,5F8 
DA T A 18,A9,2A,83,D8,E5,2A,85,3DE 
DATA D8,D1,B7,ED,52,23,22,00,3E8 


108 


298 


LIST 10/89 




























PROGRAMMI 


61910 

DATA 

DB 

61920 

DATA 

C5 

61930 

DATA 

E1 

61940 

DATA 

CA 

61950 

DATA 

E 7 

61960 

DATA 

11 

61970 

DATA 

A7 

61980 

DATA 

01 

61990 

DATA 

DF 

62000 

DATA 

4B 

62010 

DATA 

80 

62020 

DATA 

C2 

62030 

DATA 

CD 

62040 

DATA 

C7 

62050 

DATA 

00 

62060 

DATA 

00 

62070 

DATA 

FE 

62080 

DATA 

CA 

62090 

DATA 

E 7 

62100 

DATA 

23 

621 10 

DATA 

10 

62120 

DATA 

7D 

62130 

DATA 

80 

62140 

DATA 

C2 

62150 

DATA 

CD 

62160 

DATA 

C7 

62170 

DATA 

06 

62180 

DATA 

C7 

62190 

DATA 

00 

62200 

DATA 

20 

62210 

DATA 

CD 

62220 

DATA 

52 

62230 

DATA 

CD 

62240 

DATA 

CD 

62250 

DATA 

C7 

62260 

DATA 

A 7 

62270 

DATA 

00 

62280 

DATA 

DF 

62290 

DATA 

F3 

62300 

DATA 

E 5 

62310 

DATA 

23 

62320 

DATA 

36 

62330 

DATA 

7C 

62340 

DATA 

16 

62350 

DATA 

10 

62360 

DATA 

1A 

62370 

DATA 

2D 

62380 

DATA 

AO 

62390 

DATA 

E1 

62400 

DATA 

C3 

62410 

DATA 

DD 

62420 

DATA 

74 

62430 

DA r A 

DA 

62440 

DATA 

28 

62450 

DATA 

C3 



.._,2D8 
, uc. , ur~ y 1 1 7 42F 
*.* ,v* ,00,22, AE ,DC,34A 
- , 26 , C3,7D, F3,0E, 1A, 

D,F3,CD,7E,DF, P “ " 

3 , C7 , DF ,— ' 

E , C3, C7 , , 


X n N.* 

DA,FA,631 


,DF,DA,64A 
f ww,7E,DF v 5E5 

,_ y -~i C7,DF,FE,FF,6F3 

, 21,04,DB,CD,73,DD,34E 
, DF,21,1F,DB,CD,73,491 
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62460 

DATA 

DD 

,C3,94 

,DF 

,OE,10,CD 

,7D 

, 47B 

62470 

DATA 

F3 

,21,42 

, DB 

,CD,73,DD 

,CD 

, 51B 

62480 

DATA 

9F 

,00,FE 

,53 

,28,10,FE 

,73 

,399 

62490 

DATA 

CA 

,B6,DF 

, FE 

,4E,28,04 

.FE 

, 4D5 

62500 

DATA 

6E 

,20,E1 

,37 

,3F,C9,21 

,5A 

, 329 

62510 

DATA 

DB 

,CD,73 

, DD 

,CD,9F,00 

,37 

, 49B 

62520 

DATA 

C9 

,21,7C 

, DB 

,CD,73,DD 

,ED 

, 54B 

62530 

DATA 

7B 

,8C,DC 

,C3 

,FB,DC,3A 

,02 

, 4B9 

62540 

DATA 

DB 

,D3,A8 

,3A 

,03,DB,32 

.FF 

, 49F 

62550 

DATA 

FF 

,C3,C7 

, DF 

,DE,DF,C6 

,41 

, 62C 

62560 

DATA 

CB 

,79,20 

,5B 

,32,B9,EO 

,21 

, 3AB 

62570 

DATA 

60 

,EO,11 

, AB 

,EO,79,CB 

,47 

,467 

62580 

DATA 

01 

,04,00 

,28 

,03,21,64 

, EO 

, 195 

62590 

DATA 

ED 

,BO,FE 

, OA 

,11,84,EO 

,F5 

, 50F 

62600 

DATA 

28 

,11,E6 

,FE 

,11,68,E0 

,28 

, 39E 

62610 

DATA 

OA 

,FE,02 

,11 

,78,EO,28 

,03 

, 29E 

62620 

DATA 

11 

,9D,EO 

, CD 

,C9,F1,11 

, A4 

, 4CA 

62630 

DATA 

EO 

,CD,C9 

.FI 

,F1,OE,02 

,C8 

, 530 

62640 

DATA 

11 

,BD,EO 

,CL> 

,C9,F1,CD 

,45 

,547 

62650 

DATA 

54 

,F5,CD 

,83 

,51,F1,E6 

,5F 

, 520 

62660 

DATA 

OE 

,00,FE 

,49 

,C8,OC,FE 

* = i'? 

,379 

62670 

DATA 

C8 

,OC,FE 

,41 

,C8,18,E1 

,32 

,406 

62680 

DATA 

5C 

,EO,11 

,4B 

,EO,CD,C9 

,F1 

,4FF 

62690 

DATA 

OE 

,02,C9 

,00 

,OA,42,61 

,64 

, 1F7 

62700 

DATA 

20 

,46,41 

,54 

,2C,20,64 

,72 

, 21D 

62710 

DATA 

69 

,76,65 

,20 

,41,OD,OA 

,24 

, 1 EO 

62720 

DATA 

72 

,65,61 

,64 

,77,72,69 

,74 

,362 

62730 

DATA 

OD 

,OA,57 

,72 

,69,74,65 

,20 

,242 

62740 

DATA 

70 

,72,6F 

,74 

,65,63,74 

,24 

,325 

62750 

DATA 

OD 

,OA,4E 

,6F 

,74,20,72 

,65 

, 23F 

62760 

DATA 

61 

,64,79 

,24 

,OD,OA,55 

,6E 

, 23 C 

62770 

DATA 

73 

,75,70 

,70 

,6F,72,74 

,65 

, 382 

62780 

DATA 

64 

,20,6D 

,65 

,64,69,61 

,20 

, 2 A4 

62790 

DATA 

74 

,79,70 

,65 

,24,OD,OA 

,44 

,241 

62800 

DATA 

69 

,73,6B 

,24 

,20,65,72 

,72 

, 2D4 

62810 

DATA 

6F 

,72,20 

,72 

,65,61,64 

,69 

, 306 

62820 

DAT A 

6E 

,67,20 

,64 

,72,69,76 

,65 

, 30F 

62830 

DATA 

20 

,41,OD 

, OA 

,24,41,62 

,6F 

, 1 AE 

62840 

DATA 

72 

,74,2C 

,20 

,52,65,74 

,72 

, 2CF 

62850 

DATA 

79 

,2C,20 

,49 

,67,6E,6F 

,72 

, 2C4 

62860 

DATA 

65 

,3F,20 

,24 

,2C,00,02 

, ED 

, 203 






















PROGRAMMI 


Sistemi 

Quante volte in un pomeriggio pio - 

MSX 


voso avreste voluto organizzare con gli amici delle avvincenti 
di MAURO MARINILU sfide aeree, come nei film de! Barone Rosso? 


il Barone Rosso 


inalmente un gioco per due concorrenti, che potran¬ 
no emulare le gesta degli eroici pionieri dell’aria. 

Si gioca con due joystick, con uno scopo che può 
essere sintetizzato nell’adagio: “Mors tua, vita mea”! 
Quindi si tratta di una battaglia all'ultimo sangue, 
anzi, all’ultimo proiettile. 

Con lo stick guidate i due biplani, con il tasto di fuoco sparate una 
raffica diretta nel verso di movimento del vostro mezzo. 

Fate attenzione, quando manovrate il velivolo a bassissima quota, 
a non sfracellarvi a terra! 

Evitate di andare talmente in alto con il vostro aereo da uscire dallo 
schermo, perché correreste il medesimo rischio. 

Un leggero margine vi è consentito, ma non lo dite a nessuno! È un 
ottimo rifugio quando siete stati colpiti già troppe volte o quando 
scarseggiano i colpi. 

Se lascerete lo stick vedrete rallentare l’aereo e potrete così effet¬ 
tuare delle pregevoli manovre, aiutati anche dalla notevole velocità 
del gioco stesso. 

Sono consentite tutte le otto direzioni: con un minimo di pratica fa¬ 
rete faville! 

Ogni volta che colpirete il vostro avversario (notare che le vostre 
raffiche hanno una corta gittata e avrete all’inizio una dotazione di 
50 colpi) egli lampeggerà, e sotto il numero dei colpi rimasti (in alto 
sul video) si incrementerà il numero dei danni da lui subiti: quando 
avrà raggiunto i 9 danni, l’aereoplano comincerà a precipitare sen¬ 
za controllo. 

Quando vi troverete in questa situazione, non disperate! Avete, in¬ 
fatti, ancora una possibilità per rientrare in gara: premendo ripetu¬ 
tamente il tasto di fuoco vedrete il pilota lanciarsi dal biplano in 
fiamme. 

Potrete così guidare l’omino con il joystick, tentando di non farvi 
colpire dal vostro avversario, visto che sarete completamente indi¬ 
fesi. 

Se riuscirete a far toccare terra al vostro pilota, vi verrà fornito un 
nuovo aereo, una razione di colpi (se ne avevate pochi), e sarete 
pronti per partire di nuovo contro il vostro diabolico nemico. 

Se entrambi i duellanti finiscono le munizioni, gli verrà “elemosina¬ 
ta” una manciata di colpi per un supplemento di gioco. 

Il “Barone Rosso" è stato realizzato utilizzando una speciale tecni¬ 
ca di programmazione, che permette una minor lunghezza del li¬ 
stato perché sfrutta la stessa routine per entrambi i giocatori. 
Diamo ora un rapido sguardo al listato: 

1 - 6 : 

predisposizione dello schermo, richiamo della subroutine grafica, 
menu 


11 - 21 : 

inizializza le variabili, i pulsanti del joystick, i canali sonori (A per il 
primo giocatore, B per il secondo) 

26-71: 

run time, ovvero il nocciolo del gioco 
76-116: 

gestione fuoco 1 (vedi 11 -21 ), controllo della situazione di gioco (ti 
sei buttato, hai fatto centro?) 

121-161: 

come sopra, ma per il giocatore 2 
166-176: 

l’aereo precipita! 

181-201: 

gestione del paracadutista 1 
206-256: 

gestione del paracadutista 2, controllo espulsione, intercettamento 
aereo nemico, ecc. 

261-271: 

un aereo si schianta! 

276-336: 

come 206-256, ma per il secondo giocatore 
371-391: 

routine di servizio 
396-456: 

fine del gioco, attende l’input e stampa il vincitore, ecc. 

471-596: 

routine menu, con tutte le variabili annesse (vedi le REM) 
601-631: 

inizializza tutte le variabili, tranne le stringhe 
636-696: 

disegna il paesaggio di sfondo 
701-751: 

ridefinizione degli sprite e stampa della presentazione 
756-806: 

ridefinizione caratteri e inizializzazione delle stringhe 

811-951: 

linee DATA 

Termino con alcune considerazioni di carattere grafico: per l’ani¬ 
mazione di figure in movimento, quando si lavora con l’MSX, è sem¬ 
pre consigliabile l’uso degli SPRITE. 

Purtroppo, come ben sappiamo, superati i 4 sprite per linea le cose 
non sono tanto piacevoli. 

Nella realizzazione di questo gioco ho dovuto studiare attentamen¬ 
te il numero di sprite da utilizzare e la loro dinamica. 
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Ho risolto il tutto impiegando uno sprite per il biplano ed uno per la 
raffica di colpi. Quando un pilota si lancia con il paracadute viene 
utilizzato lo stesso sprite delle raffiche, ormai diventato inutile. 
Per ciò che riguarda la velocità, fattore importante per la buona 
riuscita di un videogame, esaminate attentamente il RUN TIME: 
potreste scoprire molti interessanti trucchetti da sfruttare nelle vo¬ 
stre applicazioni. 

Il menu è stato predisposto in modo che dopo ogni partita non è 
necessario reinserire i nomi dei due sfidanti. Inoltre, con l’opzione 
“cambia i nomi dei 5", e possibile immettere i nomi dei vostri amici, 
per selezionare di volta in volta con il joystick i due partecipanti di 
turno. 


LE VARIABILI PRINCIPALI 

X(1 -8), Y(1 -8): 

coefficiente per la direzione dei due biplani 
CI, C2: 

sono i colpi rimasti rispettivamente al giocatore 1 e 2 
XI, Y1: 


1 * - 

2 'BARONE-ROSSO 

3 ’ DI MAURO MARINILLI 

4 * EDIZ. LIST 88 

5 • - 

6 SCREEN1,2 :COLOR15,5,4:KEYOFF : WIDTH3 1 : 
KEY1,”RUN2”+CHR$ (13):GOSUB701: G0T0471 
11 X(2) = l: X(3) = 1: X (4 > =1: X(6) =- 1 : X (7 )=- 1 
: X ( 8 ) = - 1 : Y(l)=-1: Y(2>=-1:Y(8>=-1: Y(4>= 

1:Y(5) = 1:Y(6> = 1: F (1) = 12 :F(2) = 10 :F(3)=9 
:F(4) = 11:F <5> = 12: F (6) = 10: F (7)=9:F <8) = 1 1 
: Cl=*50: C2*=G1 : G0SUB636. 

16 ONSTRIGG0SUB1,81, 126:STRIG< 1 ) ON:STRI 
G (2 ) ON 

21 X1 = 0:Y1 = 0 : X2=230: Y2=140: J 1=3:J2=7: SO 
UND9, 10 :SOUNDIO, 10 
26 IFF1THEN0NF1-1G0T0171,181 
31 IFSTICK(1)>OTHENJ1=STICK (1):X1=X1+X( 
Jl):Y1=Y1+Y(J1 ) 

36 PUTSPRITEI,(XI,Y1 ) ,7,J1:S0UND2,ABS(X 

1) :S0UND3,100+Y1/32:X1=X1+X(J1)ANDX1<24 
5 :Y1 = Y1+Y ( J1 ) : IFY1C-40 0RY1>160THENP=1: 
V=2: GOTO 261 ELSEIFX<0THENX1=244 

41 PUTSPRITE3, , , 0 
46 IFF2THEN0NF2-1G0T0276,286 
51 IFSTICK (2)> 0THENJ2=STICK<2 >: X2=X2+X( 
J2)’: Y2=Y2+Y(J2> 

56 PUTSPRITE2,(X2,Y2>,9,J2:S0UND4,ABS(X 

2) :S0UND5,100+Y2/32:X2=X2+X(J2)ANDX2<24 
5:Y2=Y2+Y(J2>:IFY2<-40 0RY2>160THENP=2: 
V=1: GOTO 261 ELSEIFX2<0THENX2=244 

61 PUTSPRITE4,,,0 

66 IFC1 = 0ANDC2 = 0THENBEEP:L0CATE9,10: PRI 
NT”ELEMOSINA ! !”: PLAY”T190M1000S13L404D 
DL8DC+DC+DL4GR8R4L803GA+L404DDCC03A+”:F 
ORI=1T02000:NEXT:L0CATE9,10:PRINTSTRING 
S(16,32):Cl=40:C2=40:SOUND9,10:SOUNDIO, 
10 

71 GOTO 26 

76 ’ ###FUOCO SUL JOY @1 
81 IFC1=0THENRETURN 
86 IFF1=2THEN206 
91 IFF1=3THENRETURN 

96 S0UND7,243 :S0UND6,20 :S0UND12,30 :SOUN 


coordinate primo giocatore 
X2, Y2: 

coordinate secondo giocatore 
Jl, J2: 

flag che contengono il valore corrente dello stick, per pilotare le va¬ 
riabili X(J1) e Y(J2) 

W1, W2: 

coefficienti per l’apertura del paracadute 
PI, P2: 

flag per l’aereo che precipita (rispettivamente primo e secondo gio¬ 
catore) 

RI, TI e R2, T2: 
variabili paracadutisti 
V: 

vincitore della partita 
N$(1,2): 

nomi dei giocatori che si combattono 
ZI, Z2: 

danni subiti dai giocatori 
FI, F2: 

flag per controlli vari 


D8,16:S0UND13,1 

101 P1=X1+X(J1)*VV:Q1=Y1+Y(J1)*VV:PUTSP 
RIE3,(P1,Q1),1,F(J1):C1=C1-1:L0CATE6,1: 
PRINTC1 

106 IFP1+12>X2ANDP1-12<X2 ANDQ1+12>Y2AN 
DQl-4<Y2ANDF2=3THENPUTSPRITE3,,,0:GOTO 
241 

111 IFP1+12>X2ANDP1-12<X2 ANDQ1+12>Y2AN 
DQl-4<Y2THENSOUND12,30:S0UND6,29 :S0UND7 
,243 :SOUNDO,255 :S0UND8, 16 :S0UND13, 1 : PUT 
SPRITE3, ,10, 13:PUTSPRITE2, ,1:Z2=Z2+1: LO 
CATE28,2 :PRINTZ2: IFZ2=9THENF2=2:R2=X2:T 
2=Y2:X2=0:Y2=0 
116 RETURN 

121 ' ###FUOCO SUL JOY @2 
126’ IFC2=0THENRETURN 
131 IFF2=2THEN311 
136 IFF2=3THENRETURN 

141 SOUND7,243:S0UND6,20:SOUND12,30:SOU 
ND8,16:S0UND13,1 

146 P2=X2+X(J2)*VV:Q2=Y2+Y(J2)*VV:PUTSP 
RITE4, (P2,Q2>,1,F(J 2):C2=C2-1:LOCATE27, 
1:PRINTC2 

151 IFP2+12>X1ANDP2-12<X1 ANDQ2+12>Y1AN 
DQ2-4<Y1ANDF1=3THENPUTSPRITE4,,,0:G0T03 

46 * 

156 IFP2+12>X1ANDP2-12<X1 ANDQ2+12>Y1AN 
DQ2-4<Y1THENSOUND12,30:SOUND6,29: SOUND7 
,243 :SOUNDO,255 :SOUND8,16 :SOUND13, 1 : PUT 
SPRITE4,,10,13:PUTSPRITE1,,1:Z1=Z1+1:LO 
CATE6,2:PRINTZ1:IFZ1=9THENF1=2:R1=X1:TI 
=Y1:X1=0:Y1=0 
161 RETURN 

166 ‘ ###AEREO @1 PRECIPITA. 

171 PUTSPRITE1,(RI,TI),1 + 14*A,5 :A=A+1AN 
DA<1:S0UND2,ABS(Tl):Tl=Tl+4: IFT1>160THE 
NP=1:V=2:G0T0261 
176 G0T046 

181 PUTSPRITEI,(XI,Yl),1,16:Yl=Yl+2 
186 IFSTICK(l)=3ANDXl<240THENXl=Xl+4 
191 IFSTICK(1)=7ANDXl>0THENXl=Xl-4 
196 IFY1>160THEN226 
201 G0T046 

206 VI=W1+1: IFW1<5THENRETURN 
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211 BEEP:FORI = 0TO255STEP10 :SOUND2, I : SOU 
ND3,0:SOUND9,15:NEXT:FORI=T1T0T1-16STEP 
-.2:PUTSPRITEI,(RI,I),1,14:NEXT:PUTSPRI 
TEI,(RI,Tl-8),,15:S0UND6,0:SOUND13,1 
216 X1 = R1:Y1 = T1:BEEP:FORI=255TOOSTEP~8 : 
SOUND2, I :SOUND3,3 :S0UND9,12:NEXT : SOUND9 
,0 

221 Fl=3:RETURN 

226 LOCATEO,6:PRINT”NON SONO ANCORA FIN 
ITO,”;NS(2);”!” :BEEP 

231 V1 = W1-10:Z1 = 0:LOCATE6,2 :PRINTZ1: IFC 
1<21THENC1=20 

236 J1=2 :Yl=159:FORI = 1T01000:NEXT:LOCAT 
EO,6:PRINTSTRINGS(64,32):F1 = 0:SOUND9, 10 
:SOUNDIO,10:GOTO 26 

241 FORI =0TO45: PUTSPRITE2, , , 15 + A: A=A+1A 
NDA<1 :SOUND6,RND(1)*30 :SOUND7,243 : SOUND 
8, 10:SOUNDO, I :NEXT:BEEP:FORI=Y2T0168STE 
P2:PUTSPRITE2,(X2, I), 15,15 + A:A=A+1ANDA< 
1:SOUND8, 14 :SOUNDO,50+I : SOUND1,2 :NEXT 
246 SOUND12,4^ : SOUND8,16:SOUND13,1:PUTS 
PRITE2,,,14 

251 LOCATE3, 7 :PRINT"DOVE TI CREDEVI DI 
ANDARE M : PR I NT : LOCATE6 : PR INTNS (2 ) ; ” ?!? 
!”:FORI = 1T01000: NEXT 
256 P=2:V=1: GOTO 396 

261 SOUND9,0:SOUNDIO, 0 :SOUND12, 70 : SOUND 
6,10:SOUND7,243 :SOUNDO,0 :SOUND1,0 : SOUND 
8,16:SOUND13,1 

266 FORI=1T0500:NEXT:LOCATE5,12:PRINT”C 
HE BOTTO ”;NS(P);” !” : FORI = 1T01000 : NEX 
T 

271 GOTO 396 

276 PUTSPRITE2,(R2.T2),1+14*A, 5: A=A+1AN 
DA<1:SOUND2,ABS(T2>:T2=T2+4:IFT2>160THE 
NP=2:V=1:G0T0261 
281 G0T026 

286 PUTSPRITE2, (X2,Y2 ) , 1, 16 : Y2 = Y2+2 
291 IFSTICK(2 ) =3ANDX2<240THENX2=X2+4 
296 IFSTICK(2 ) =7ANDX2> 0THENX2 = X2-4 
301 IFY2>160THEN331 
306 GOTO 26 

311 V2 = V2 + 1: IFW2<5THENRETURN 
316 BEEP:FORI=0TO255STEP10 :SOUND2, I : SOU 
ND3,0:SOUND9,15:NEXT:FORI=T2TOT2-16STEP 
-.2:PUTSPRITE2,(R2,I),1,14:NEXT:PUTSPRI 
TE2,(R2,T2-8),,15:S0UND6,0:SOUND13,1 
321 X2=R2:Y2=T2:BEEP:FORI=255TOOSTEP-8: 
SOUND2, I :S0UND3,3 :SOUND9, 12 :NEXT:S0UND9 
,0 

326 F2=3:RETURN 

331 LOCATEO,6:FRI NT”TE L’HO FATTA ANCOR 
A ,”;NS(1);"!":BEEP 

336 V2 = V2-10:Z2=0:LOCATE27,2:PRINTZ2: IF 
C2<21THENC2=20 

341 J 2=2 :Y2=159 :FORI = 1T01000:NEXT:LOCAT 
EO,6:PRINTSTRINGS(64,32):F2 = 0:SOUND9, 10 
:SOUNDIO,10:GOTO 46 

346 FORI=0TO45:PUTSPRITE1,,,15+A:A=A+1A 
NDA<1 :SOUND6,RND(1)*30 :SOUND7,243 : SOUND 
8,10:SOUNDO, I :NEXT:BEEP:FORI=Y1T0168STE 
P2:PUTSPRITEI,(X2,I),15,15+A:A=A+1ANDA< 
1:SOUND8, 14 :SOUNDO,50+I :SOUND1,2 :NEXT 
351 SOUND12,40:SOUND8,16:SOUND13,1:PUTS 
PRI TEI, , ,14 

356 LOCATE2,7:PRINT”E* INUTILE CHE TENT 
I LA FUGA”:PRINT:LOCATE9:PRINTNS(1);".. 


”:FORI=ITO1000NEXT 
361 P=1:V=2:G0TQ396 
366 RETURN11 

371 » ####################### 

376 ’ TOGLIE DI MEZZO SPRITE 
381 ’ ####################### 

386 FORI = OT031:PUTSPRITEI, (0,-50),0,0:N 
EXT 

391 RETURN 

396 • ####################### 

401 • LA PARTITA E* FINITA. 

406 ’ ####################### 

411 STRIG(l)OFF:STRIG(2)OFF 
416 BEEP:PLAY”T100M4000S10L16R04GF+GAL8 
G03G04L16GF+GAL803G04L16G04GR64GL8AA+B” 
421 LOCATEIO, 0: PRINT”B| 1 H| Bf': LOCAT 
E10 : PRI NT”■ ■ ■ ■ W' :LOCATE10 :PRI NT” ■ 

■ ■ ■ IV : LOCATE 1 0 : PR I NT" H ■ ■ ■ M' : L 
OCATEI0: PRINT"■ ■ ■ ■ WM' 

426 FORI=6T019:LCATEO, I :PRINTSTRINGS(31 
,32);:NEXT 

431 LOCATEO,8:FRI NT”MI DISPIACE ”;N$(P) 
” MA”:PRINT:PRINT” SEI STATO ABBATTUT 
O. " 

436 LOCATE11,13:PRINT”HA VINTO:”:LOCATE 
10, 15: PRINT" : PRINTTAB (10) 

"#’TAB(22)"#’ : PR INTTAB ( 10 ) ” # ” ; NS (V) ; TA 
B(22)"#' ; PRINTTAB (10)"#'TAB (22) " 1$' : PRI N 
TTAB(10)STRINGS(13,) 

441 VP0KE8218,C:C=C+1ANDC<255 
446 IFINKEYSO””THEN461 
451 IFSTRIG(1)ORSTRIG(2)THEN461 
456 GOTO 441 

461 PLAY”T100V15L8R04ECD03GRG04DEC” : FOR 
I=1T02000:NEXT:GOTO 471 
466 STOP 

471 1 ######################## 

476 • SCHERMATA DEL MENU 
481 •######################## 

486 COLOR15:VPOKE8217, 16*4+5 :S=1:GOSUB3 
71 

491 CLS:LOCATE7,0:PRINT”I PIU’ CATTIVI: 
»» 

496 LOCATE,2;FORI = 1T05:LOCATE9: PRINTI ; C 
HRS(127)")"QS(I):PRI NT : NEXT 
501 LOCATE2,13:PRINTNS(1)TAB(12)”CONTRO 
”TAB(2 0)NS(2): LOCATE1,15 : PRI NT”> CAMBIA 
I NOMI DEI CINQUE":LOCATE1,17:PRINT” CA 
MBIA I NOMI DEI PILOTI":LOCATE1,20 :PRIN 
T”(C) 1988 BY MAURO MAR INILLI” 

506 LOCATE2,22 :PRI NT”fl%INIZIA %fuoco 
% SCEGLIE” 

511 ’ 

516 IFSTICK(1)=10RSTICK(0)=10RSTICK(2)= 
1THENLOCATE1,17:PRI NT” ”:LOCATE1,15:PRI 
NT*> ” : S= 1 

521 IFSTICK(1)=50RSTICK(0)=50RSTICK(2)= 
5THENLOCATE1,15:PRINT” ":LOCATE1,17:PRI 
NT”►”:S=2 

526 IFSTRIG(0)ORSTRIG(1)ORSTRIG(2)THENO 
NSGOSUB581,536 
531 G0T0511 

536 '#CAMBIA I NOMI DEI PILOTI 

541 LOCATE1,12:PRINT”PREMI IL NUMERO RE 

LATIVO<1- 5: BEEP 

546 LOCATE1, 13:PRINT">”; :G0SUB566:PRINT 
QS(D)TAB(11): LOCATE1, 13:PRINT” ”: PLAY”1 
64n66n62” 

551 NS(1)=QS(D):LOCATE19,13:PRINT”^”; : G 
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0SUB566:PRINTQS(D)TAB(30):LOCATE19,13:P 
RI NT” ” : PLAY” 164n50n52" ; NS (2>=QS (D) 

556 LOCATEO,12 :PRINTSTRINGS30,32) 

561 RETURN 

566 I=VAL(INKEYS): IFI>OANDI<6THEND=I : RE 
TURN 

571 G0T0566 

576 ’##CAMBIA I NOMI DEI CINQUE 

581 F0RD=1T05:BEEP:PLAY”164n40n42”: LOCA 

TE12,2*D:LINEINPUTQS<D) 

586 NEXT:PLAY”L64N60N55” 

591 PLAY”L60N60N66”: RETURN 
596 STOP 

601 • ####################### 

606 ’ PREPARA VARIABILI 

611 1 ####################### 

616 • 

621 VV=4: V=4: F0RI = 1T08: X(I >=X(I>*V: Y(I> 
=Y(I)*V:NEXT 

626 1=0:E=0:A=0:U=0:P1=0:Q1=0:P2=0:Q2=0 
:R1=0:R2=0:T1=0:T2=0:V1=0:W2=0:Z1=0:Z2= 
0:F1=0:F2=0:X=0:Y=0:S=0 
631 RETURN 

636 ' ####################### 

641 » DISEGNO DEL QUADRO 
646 ’ ####################### 

651 1 
656 ’ 

661 CLS:GOSUB601 
666 VPOKE8208,16*11+5 

671 LOCATEO,1:PRI NT”COLPI :”TAB(22)”COLP 
I : ” : LOCATEO, 2 : PR INT”danni : •• : LOCATE22,2 : 
PRINT”danni” 

676 LOCATEO, 22 : PR I NT” é&UUiitiUQéàUtiiiCéàilU 
UUUQéàUUUUUQé”; 

681 FORI=6144+32*23TQ6144+31+32*23: VPOK 
E1, 129:NEXT 

686 LOCATEO,0 ; FRINTNS(1> : L0CATE22, 0; PRI 
NTNS(2) 

691 FORI=8204T08207:VPOKEI , 16*14+5:NEXT 
:FORI=8197T08199:VPOKEI,16+5:NEXT 
696 RETURN 

701 ’ #*#################### 

706 • RI DEFINIZIONE SPRITE 
711 • ###################### 

716 • 

721 1 

726 print” ■ ■ ■■ hi ■■ mm m ■ 


■ ■ ■ ■ ■ 


731 L0CATE6, 7: PRINT”Hi Hi Hi ■■ IH 
” : PRINTTAB(6)”H ■ ■ ■ ■ ■ ■ ■' :PRIN 

TTAB (6) "Hi ■ ■ ■■ Hi ■ ■’ : PRINTTAB (6 

>”■ ■ ■ ■ ■ ■ ■ M' : PRINTTAB(6)”1 ■ 


736 LOCATE1,14:PRINT”(C) 1988 BY MAUR 
O MARINILLI” : PLAY”m500sl0t130sl3o418ggg 
14al8geeel4f18ecccco3bal4g” 

741 F0RE=1T016:F0RI=1T032:READU:SS=S$+C 
HRS(U):NEXT:SPRITES(E)=S$;S$=”” : NEXT 
746 SPRITES(63)=CHRS(192 > +CHRS(192) 

751 » ####RID I&SGN& CARATT. 

756 REST0RE951 

761 :F0RI=128*8T0132*8-1:READU:VPOKEI,U 
: NEXT 


766 VPOKE8208,16*11+5 
771 CLS: 

776 ' SISTEMA LE STRINGHE 


781 •######################## 

786 ’######################## 

791 QS(1)=”CIRO”:QS(2)=”GIORGIO”:QS(3)= 
” NI COLA” : QS (4 ) =” PASQUALE” : QS (5 )^=” FRANCO 

ii 

796 NS(1)=QS(1):NS(2)=QS(5) 

801 KEY(1)ON:0NKEYG0SUB366 
806 RETURN 

811 DATA 0,30,63,63,127,3,1,1,3,3,3,3,7 
,7,3,0, 64,160,64,188,254,255,191,192,1 
92,128,128,0,0,128,128,0 
816 1 

821 DATA31,31,23,11,7,7,3,3,7,15,31,190 
,252,184,112,0, 0,128,200,228,234,240,2 
52,254,127,191,31,17,14,0,0,0 
826 * 

831 DATAO,3,4,7,7,195,225,254,127,31,0, 
0,0,0,0,0, 192,224,96,176,244,234,244,2 

50,120,252,124,62,62,30,0,0 
836 ’ 

841 DATA14,28,30,31,15,7,3,2,5,31, 127,2 
5.5, 191, 188, 120, 0, 0,0, 0,0,0, 134,223,255 
,255,254,248.192,32,80,32,0 
846 * 

851 DATAO,1,1,0,0,1,1,3,3,253,255,127,6 
1,2,5,2, 0,192,224,224,192,192,192,192, 
128,128,192,254,252,252,120,0 
856 » 

861 DATAO,0,0,0,48,125,255,255,127,63,3 
1,3,4,10,4,0, 112,56,120,120,240,224,16 
0, 192,240,248,254,253,253,61,30,0 
866 • 

871 DATA3,7,6, 13, 47,87,47,95,30 ,.63,62, 1 
24,124,120,0,0, 0,192,32,224,224,195,13 
5,127,254,248,0,0, 0, 0, 0, 0 
876 * 

881 DATAO,9,19,43,7,31,63,127,254,253,2 
48,136,112,0,0,0, 248,248,232,208,224,2 
24,192,192,224,240,248,125,63,29,14,0 
886 * 

891 ’ 

896 DATAO,0,0, 0,0, 0,0,99,99, 0,0, 0,0, 0,0 
,0, 0,0,0,0, 0,0, 0,24,24,0,0,0,0, 0,0,0 
901 DATAO,0,0,0,0,0,1,1,0,0, 24,24, 0,0,0 
,0, 0,0,24,24,0,0,128,128,0,0,0,0,0,0,0 
,0 

906 DATAO,0,24,24,0,0,1,1,0,0,0,0,0,0,0 
,0, 0,0,0,0,0,0,128,128,0,0,24,24, 0, 0, 0 
,0 

911 DATAO ,1,1,0,0,0,1,1,0,0,0,1,1,0,0,0 
, 0, 128, 128, 0 # , 0, 0, 128, 128, 0, 0, 0, 128, 128 
,0,0,0 
926 * 

931 DATA8,33,155,79,31,123,191,23,159,6 
3,127,219,15,95,10,18, 137,210,212,136, 
98,248,222,253,232,250,180,226,112,57,4 
, 64 

936 DATAO,0,0,0,0,0,0, 1,9,4,3,1,1,2,2,6 
, 0,0,0,0,0,0,0,128,144,32,192,128, 128, 
64,64,96 

941 DATAO, 1,3,5,7,8,0,9,5,4,3,1,1,2,4,1 
2, 0,128,192,160,224,16,0,144,160,32,19 
2,128,128,64,32,48 

946 DATA7,31,63,127,255,254,80,40,21,9, 
4,3,1,1,2,12, 224,248,252,254,255,127,1 
0,20,168,144,32,192,128,128,64,48 
951 DATAO,192,224,248,255,255,247,255, 
239,255,251,191,255,253,255,255, 0,7,12 
7,143,240,223,255,255 ,15,255,251,255,6 
3,199,249,254 
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PROGRAMMI 


Vi proponiamo una “unità” Pascal 

MS-DOS 


di GIULIO VANNINI e ANGELO COCCETTINI in grado di generare menu a finestre del tipo “pull-down” 


pc Menu 
Genera tor 


a tempo LIST pubblica regolarmente articoli sul lin¬ 
guaggio Pascal. 

Molti utenti di micro e personal computer si sono ulti¬ 
mamente avvicinati a questo linguaggio che, sebbe¬ 
ne relativamente "antico’’, è stato recentemente po¬ 
tenziato con la creazione di pacchetti come il TurboPascal della 
Borland, che è ormai giunto alla sua quinta versione. Questi nuovi 
compilatori Pascal contengono, oltre ai (pochi) comandi standard, 
un gran numero di procedure e funzioni che gestiscono al meglio 
la grafica e il sistema operativo dell’elaboratore. Per questo motivo 
abbiamo pensato di proporvi in questo numero una “unità’’ Pascal 
in grado di generare menu a finestre del tipo più diffuso, dello stes¬ 
so tipo cioè di quello implementato nell’editor del TurboPascal 
stesso! L’idea è nata dall’effettiva necessità di gestire i nostri pro¬ 
grammi con qualcosa di diverso dal solito, superato elenco del tipo: 

1 - Primo comando 

2 - Secondo comando 

E - Esci 

I menu cosiddetti “a caduta", invece, oltre ad essere più piacevoli 
dal punto di vista grafico, consentono una migliore utilizzazione 
dei programmi stessi soprattutto quando si hanno numerose op¬ 
zioni da catalogare. Infatti è facile raggruppare i comandi per cate¬ 
gorie, e successivamente far comparire solo la finestra corrispon¬ 
dente, selezionando infine con un solo colpo di "ENTER"! 

II nostro "PC Menu Generator’’ lavora in modalità grafica, e genera 
quindi finestre e testo mediante i set interni del TurboPascal lavo¬ 
rando in modo proporzionale. L’effetto risultante è senza dubbio 
migliore di quello che si sarebbe potuto ottenere usando il modo te¬ 
sto, ed è per questo che abbiamo scelto questa soluzione. Il pro¬ 
gramma è stato sviluppato in TurboPascal 4.0, è compatibile con 
tutte le più comuni schede grafiche (è stato testato su CGA, Hercu¬ 
les e EGA) e può essere agevolmente inserito nei vostri programmi 
(naturalmente in Pascal!!). 

Come già accennato, il corpo principale di PC Menu Generator è 
costituito da una "unit”. I veterani del TurboPascal sanno già di 
cosa stiamo parlando, ma riteniamo opportuno sprecare qualche 
riga per chiarire il concetto. Nelle prime versioni di TurboPascal 
non era possibile scrivere programmi troppo lunghi, in quanto la 


lunghezza del codice oggetto di un singolo file era limitata ad una 
sessantina di kilobytes. Per ovviare a questo difetto, i tecnici della 
Borland hanno introdotto le units, che rappresentano un po' l’uovo 
di Colombo “informatico”. Infatti una unità pascal non è altro che 
un programma vero e proprio, che viene dichiarato in testa al pro¬ 
gramma chiamante con l’istruzione "uses” e viene quindi eseguito 
più o meno come una procedura quando viene chiamata mediante 
il suo nome. Una unit può comprendere procedure e funzioni come 
un comune programma. Generalmente si preferisce limitare il suo 
contenuto proprio a questo tipo di oggetti, riducendo il programma 
vero e proprio ad un semplice "begin end.’’. In questo modo la unit 
diventa semplicemente un supplemento di procedure al program¬ 
ma principale. Inoltre, essendo "trasparente" (basta dichiararla al¬ 
l’inizio) assume la forma di un vero e proprio Toolkit. Questo è, del 
resto, l’uso che ne abbiamo fatto noi in questo caso. C’è da ag¬ 
giungere che in una unità si possono scrivere procedure, funzioni e 
variabili sotto la dicitura "interface", le quali saranno "viste" dai 
programmi chiamanti, o sotto "implementation", che potranno in¬ 
vece essere usate solo dalla unit stessa. 

Nel PC Menu Generator troviamo in zona interface le tre procedure 
che rappresentano l’estensione al TurboPascal standard da noi 
creata. Esse sono: 

initmenu ( nomefile : string ) 
setmenu ( coll , col2 : word ) 
getmenu ( var titlesel, optsel : word ) 

Questi comandi permettono una semplice utilizzazione del pro¬ 
gramma. Ecco come dovete fare: 

- initmenu 

Inizializza le variabili riguardanti i nomi delle opzioni. Il parametro 
da specificare è il nome completo del file (compresi unità e percor¬ 
so) dal quale verranno letti i dati. Il programma EDITOR permetterà 
a coloro che non possiedono un editor di testo di creare nel giusto 
formato il file. Si inseriscono dapprima il nome del file ed il numero 
delle opzioni, e successivamente per ciascuna di esse il loro nome e 
quello delle sub-opzioni ad esse relative. Per ogni sub-opzione è ri¬ 
chiesto inoltre un flag che deve essere settato ad 1 se la sub - op¬ 
zione è attiva, a 0 se è disattivata. Quando una sub-opzione non è 
attiva, il rettangolo in inverse che scorre su e giù nella finestra “sal- 
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program editor; 

-c ***********************•*•**■**•#•-*■**■#-■*••*•*•#•** > 

■C * PC Menu Generator * > 

■C * Data File Editor * > 

■C * For PC IBM Compatible * > 

■C * Copyright 19fì9 by BETASOFT Research * > 

■C *********************‘****************** > 

uses crt; 

var f : text; 

t : string; 

n , i , j , k : integer; 

beg in 
clrscr ; 

write('Inserire il nome del File : "); 

readln(t); 

writeln; 

assign(f,t ) ; 

rewrite(f ) ; 

write('Inserire il numero di opzioni : '); 

readln(n ) ; 
wr 1 teln ; 

for i := 1 to n do 
beg i n 

write('Inserire Opzione numero ' ,i,' : ' ) ; 

readln(t); 
writeln(f,t); 
writeln; 

write('Inserire numero Sub-opzioni : '); 

readln(k); 
writeln(f,k); 
writeln; 

for j := 1 to k do 
beg i n 

write(' Inserire Sub-opzione numero ',j,' : '); 

readln(t); 
writeln(f,t); 

writet' Inserire Flag di attivazione : ' >; 

readln(t); 
writeln(f,t); 
writeln; 
end ; 

writeln ( '-' ) ; 

end ; 

dose ( f ) ; 

end. _ 
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program MDemo; 

■C **********************-**-***-****-*-**-**-*** > 

< * PC Menu Generator * > 

■C -* Demo Program * > 

< * For PC IBM Compatible * > 

■C * Copyright 1969 by BETASOFT Research * > 
■C *******************■******■*■*•*•*■*■*■*-*■*•**-**•* > 

uses crt , graph , menu; 

var 

graphmode , graphdriver : integer; 
titlesel , optsel : word; 
tempmenu : menutext; 
q : string; 

beg in 
clrscr ; 

graphdriver := detect; 

initgraph (graphdr 1 ver , graphmode,'') ; 

case graphdriver of 

1 : setgraphmode(CGAhi) ; 

3,4: setgraphmode(0) ; 

5 : setgraphmode<EGAmonoHi) ; 

7 : setgraphmode ( HercMonoHi) 
end ; 

in itmenu( ' a : \prova '); 
setmenu(0,1); 

rectangle < 0 ,10,getmaxx, getmaxy) ; 

getmenu( t ì tlèsel, optsel ) ; 

str( t itlesel ,q) ; 

setcolor(1) ; 

moveto(10 , 100) ; 

outtext('Opzione selezionata: ' ); 
str(titlesel , q) ; 
outtext(q) ; 
moveto(10 , 120) ; 

outtext('Sub-Opzione selezionata: '); 
str(optsel , q) ; 
outtext(q) ; 
end . 
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ta” il riquadro relativo ad essa, pur lasciando visualizzato il nome 
in modo "sfumato”. 

Come già detto, il file di inizializzazione può essere anche creato 
con un semplice editor di testo nel seguente formato: 

Nome—prima—opzione 
3 (numero di sub-opzioni*) 

Nome—prima—sub-opzione 

1 (flag di attivazione) 

Nome—seconda—sub-opzione 
0 (sub-opzione disattivata) 

Nome—terza—sub-opzione 
1 

Nome—seconda—opzione 

2 


È possibile inizializzare più volte il menu. In tal modo potrete definire un 
comando che faccia scomparire il menu corrente e ne apra un altro, e 
così via. Ciò rende illimitato il numero di opzioni e sub-opzioni inseribili. 

- setmenu 

Questo comando attiva la visualizzazione della riga principale del 
menu, che verrà visualizzata nella parte alta dello schermo. Setme¬ 
nu va usato almeno una volta per visualizzare il rettangolo delle 
opzioni. I parametri sono i colori con i quali verranno disegnate le 
finestre. Il primo è l’inchiostro, il secondo lo sfondo. 

- getmenu 

Attiva la selezione vera e propria delle opzioni. Una volta chiamato, 
sul video comparirà un riquadro invertito sulla prima opzione, che 
si può spostare con i tasti cursore destra e sinistra. Con i tasti su e 
giù vi muovete lungo le finestre a scomparsa delle sub-opzioni, 
mentre con il tasto ENTER selezionate il comando desiderato (da 
notare che la comparsa e scomparsa delle finestre non cancella il 
contenuto del video sottostante!). All’uscita dalla procedura, nelle 
variabili-parametro titlesel e optsel verranno memorizzati i numeri 
relativi all’opzione ed alla sub-opzione scelte. Se volete uscire sen¬ 
za scegliere nulla, premete ESC. In questo caso titlesel e optsel con¬ 
terranno entrambe il valore 0. Prima di concludere, qualche nota ri¬ 
guardante il programma dimostrativo MDEMO. Esso si inizializza 
automaticamente a seconda della scheda grafica installata sul vo¬ 
stro computer a condizione, ovviamente, che i relativi driver si trovi¬ 
no sulla stessa directory del TurboPascal. Lo stesso vale per le 
units standard crt e graph utilizzati dal demo e da MENU stesso. Se 
avete una CGA il programma dovrà necessariamente lavorare in 
alta risoluzione, e quindi avrete a disposizione solo due colori, che 
sono poi quelli utilizzati dal nostro demo (il programma è stato 
scritto su una macchina sulla quale è montata appunto una sche¬ 
da CGA). Il numero massimo di opzioni visualizzabili sulla riga prin¬ 
cipale varia secondo il tipo di scheda utilizzata e la lunghezza delle 
parole. Con la CGA ed una media di otto parole per opzione si pos¬ 
sono scrivere sette o otto titoli. Con una Hercules o una EGA si arri¬ 
va anche a tredici o quattordici. Nel caso della EGA vi potrete an¬ 
che sbizzarrire nella scelta dei colori. 

Il nome del file chiamato da initmenu è puramente arbitrario. Pro¬ 
vate ad installare il menu con le opzioni di prova pubblicate in que¬ 
ste pagine, e gustatevi una velocissima scansione di titoli e coman¬ 
di, con comparsa e scomparsa di finestre e testo grafico. Che dire? 
Potenza del TurboPascal... 
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Finalmente un Data Base stile “Per- 
di GIAN PIERO ROSI sonai Computer” anche per il Commodore 64 

DBASE 641 


enu con finestre a discesa, una incredibile semplici¬ 
tà di utilizzo, possibilità di ricerca record con “wild 
cards": questi ed altri sono gli ingredienti del DBA¬ 
SE 641, che lo rendono un programma potente e 
flessibile, dotato di un’interfaccia utente estrema- 
mente veloce e piacevole da usare. 

Prima di tutto, spieghiamo brevemente quali sono le applicazioni 
generali di questo Data Base: DBASE 641 ci permette di creare degli 
archivi, ovvero dei “file" su disco, in cui memorizzare dei dati. 
Ognuno di questi file è organizzato in RECORD, ed ogni record è 
suddiviso in CAMPI. Se. ad esempio, vogliamo creare un archivio 
da utilizzare come agenda telefonica, ogni record rappresentereb¬ 
be un abbonato SIP. mentre i campi di cui è composto il record po¬ 
trebbero essere il NOME, il COGNOME. l’INDIRIZZO ed il TELEFO¬ 
NO. 

La flessibilità di utilizzo di questo programma è dovuta al fatto che 
il nome dei campi di cui sarà composto ogni record e la loro lun¬ 
ghezza (o meglio, "capienza") viene definita dall'utente in fase di 
creazione dell’archivio. 

Praticamente, ogni file da voi creato avrà una sua "identità” pro¬ 
pria, cioè sarà tagliato su misura per l'uso specifico che volete far¬ 
ne. 

Naturalmente il Data Base consente di effettuare delle ricerche ve¬ 
loci sui record dell’archivio, con la possibilità di individuare facil¬ 
mente un’informazione che ci interessa, fra tutti i dati contenuti. 

La velocità di accesso ai dati è assicurata dall’utilizzo dei file "rela- ' 
tivi” che permettono di leggere un record immediatamente, qualun¬ 
que sia la sua posizione nell’archivio, a differenza dei file di tipo se¬ 
quenziale che vanno sempre letti ordinatamente dall’inizio. 

DBASE 641 è in grado di stampare su carta uno o più record di un 
file, secondo uno dei tre diversi schemi disponibili. 

Un archivio può essere facilmente modificato, corretto, copiato in 
un'altro file o addirittura completamente eliminato dal disco. 


COME SI USA DBASE 641 

Dopo la schermata introduttiva, premendo il tasto funzione FI, si 
passa al menu principale. 

Tutte le opzioni disponibili sono suddivise per argomento in quattro 
gruppi principali, che appaiono sulla prima riga dello schermo: AR¬ 
CHIVI, RECORDS, RICERCA, ORGANIZZAZIONE. 

Con i tasti cursore per il movimento orizzontale, si può scegliere il 
gruppo che interessa, il quale verrà visualizzato in modo “reverse’’. 
Sotto al nome del gruppo prescelto si apre automaticamente una 
finestra contenente le opzioni corrispondenti, selezionabili con i ta¬ 
sti cursore per il movimento verticale. La scelta va confermata con 
la pressione del tasto “RETURN". 


In basso, invece, sono visualizzate tre piccole finestre, contenenti ri¬ 
spettivamente: l’intestazione DBASE 641, il nome dell’archivio cor¬ 
rentemente selezionato, il tipo di operazione che si sta effettuando. 
Analizziamo le opzioni contenute nel primo gruppo "ARCHIVI". 
“SCEGLI FILE" permette di selezionare l’archivio desiderato Prima 
di tutto si aprirà una finestra contenente l’elenco degli archivi creati 
con il Data Base e presenti sul disco inserito nel drive dopodiché, 
con i tasti cursore, si sceglie l’archivio, confermando con il Return. 
Una volta effettuata la scelta, il nome del file verrà visualizzato nel¬ 
l’apposita finestra in basso sullo schermo ed ogni vostra successi¬ 
va operazione si intenderà compiuta su questo archivio. 

Se invece volete creare un nuovo file, scegliete l’opzione "CREA FI¬ 
LE”. Vi verrà richiesto il nome che volete dare all’archivio, poi si 
passerà alla procedura di definizione dei campi. 

Dovrete quindi inserire il nome di ogni campo, e la rispettiva lun¬ 
ghezza in caratteri. Per comunicare la conclusione del record, digi¬ 
tate un return alla richiesta del nome-campo successivo. 
Attenzione a non fare confusione: in questa fase non si definisce il 
"contenuto" di un campo, ma il “nome" (etichetta) del campo. 
Chiaramente esistono delle limitazioni di spazio: il nome di un cam¬ 
po non può essere più lungo di 10 caratteri, mentre la somma delle 
lunghezze di tutti i campi non può superare il valore 254. 

Queste informazioni sulla struttura del record da voi definito, ver¬ 
ranno memorizzate in un file sequenziale che porterà il nome del¬ 
l’archivio con l'aggiunta dell’estensione “.LBL”, che stà per "label” 
(etichetta). 

Il file relativo che costituisce l'archivio vero e proprio avrà invece 
estensione ".DBF" (Data Base File). L’ultima opzione del gruppo è 
“FINE LAVORO”, con ovvio significato. 

Il secondo gruppo, "RECORDS", si occupa dell’inserimento e della 
modifica delle informazioni. 

Con l’opzione "AGGIUNGERE” è possibile memorizzare un nuovo 
record nell’archivio, operazione comunemente chiamata "ap- 
pend”. 

Sul video apparirà la maschera del record vuoto, ovvero il nome dei 
vari campi seguiti tutti da una “strisciolina" bianca, indicante la 
lunghezza del relativo campo. 

È in queste strisce che dovrete digitare le informazioni da memoriz¬ 
zare nel record. Per cancellare un carattere, in caso di errore, po¬ 
trete usare il tasto DEL, mentre per passare al campo successivo 
utilizzate il Return. 

Il record da voi digitato non verrà memorizzato fino alla pressione 
del tasto FI. 

Il messaggio "RECORD NUMERO 1 MEMORIZZATO" confermerà 
l’avvenuta archiviazione dell’informazione. 

Le successive due opzioni, “CORREGGERE" ed "ELIMINARE", so¬ 
no molto intuitive e semplici da usare, e permettono di modificare o 
cancellare un record, inserendo il suo numero d’ordine alla richie- 
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sta del computer. 

Da notare che se eliminiamo, ad esempio, il quinto record, la nume¬ 
razione degli altri record non subirà alcuna modifica, ma il record 
numero 5 non potrà più essere visualizzato e non verrà assoluta- 
mente considerato in fase di ricerca. 

Ciò non significa che quello spazio sul disco non potrà più essere 
utilizzato: quando inserirete un nuovo record nell’archivio, esso 
verrà posto nel primo record vuoto disponibile, quindi, nel nostro 
caso specifico, nel numero 5. 

Procediamo quindi con il terzo gruppo di opzioni: “RICERCA”. 
Abbiamo a disposizione tre tipi di ricerca: “PER RECORD” (che 
permette di visualizzare un record semplicemente digitandone il 
numero), “PER CAMPO” (che permette di visualizzare tutti i record 
che contengono un campo compatibile con una chiave fornita) ed, 
infine, "VISUALIZZA” per ottenere una visione globale e sequenzia¬ 
le di tutti i record dell’archivio. 

La ricerca per campo richiede ulteriori spiegazioni. 

Prima di tutto verrà richiesto se i record trovati dovranno essere an¬ 
che stampati su carta oltre che visualizzati su video. 

Poi bisognerà fornire il numero del campo sul quale si deve basare 
la ricerca. Naturalmente sullo schermo apparirà l’elenco numerato 
dei campi, per aiutare l’utente nella scelta. 

A questo punto non resta che inserire la “chiave”, ovvero la stringa 
che discriminerà i record. 

Se, ad esempio, abbiamo scelto come campo-chiave il “COGNO¬ 
ME” e digitiamo come chiave la stringa "ROSSI”, saranno visualiz¬ 
zati tutti i record dell'archivio che contengono "ROSSI" nel campo 
“COGNOME”. 

Chiaramente una ricerca di questo tipo sarebbe troppo limitativa. 
Abbiamo quindi dotato il nostro Data Base di procedure più poten¬ 
ti. 

Ad esempio, digitando la chiave ">ROSSI" verranno visualizzati tut¬ 
ti i record con un cognome che, nell’ordinamento alfabetico, sono 
successivi a ROSSI. 

Analogo il funzionamento con il simbolo "<", ma con l’effetto di vi¬ 
sualizzare le stringhe di valore inferiore a quella inserita come chia¬ 
ve. 

Si può utilizzare anche il carattere jolly che rappresenta un 
gruppo di caratteri qualunque. 

La chiave “ROS*” ricerca tutti i cognomi che iniziano per ROS, 
mentre la chiave “*SSI” ricerca tutti i cognomi che terminano con le 
lettere SSI. 

Per ciò che riguarda l’opzione “VISUALIZZA”, essa sfrutta un mec¬ 
canismo veramente simpatico: i record vengono visualizzati in oriz¬ 
zontale, uno per riga, troncando tutto ciò che eccede i 40 caratteri. 
Con i tasti cursore verticali si seleziona il record che si vuole ispe¬ 
zionare, mentre con i tasti cursore orizzontali si può fare scorrere il 
record a destra e a sinistra, in modo da esaminarlo completamente. 
Avrete modo di constatare meglio la praticità di questa procedura 
durante il suo utilizzo. 

Passiamo quindi all’ultimo insieme di opzioni: il gruppo di "ORGA¬ 
NIZZAZIONE". 

“SET STAMPA" contiene un sottomenu con tre opzioni: 

1) definizione parametri stampa, per scegliere fra i tre tipi di 
stampa disponibili; il tipo "etichetta", ad esempio, è studiato per 
essere sfruttato con le targhette autoadesive da incollare sulle 
buste per lettera, che vengono fornite su modulo continuo per 
stampante 

2) stampa file, per effettuare la stampa su carta dell’intero file 

3) ritorno al menu. 


Durante la definizione dei parametri di stampa è possibile stabilire 
quali campi del record stampare. Nel caso della stampa in linea, il 
numero di caratteri totali dei campi prescelti non può ovviamente 
superare gli 80 caratteri. 

Scegliendo la stampa formattata per etichette, è possibile selezio¬ 
nare anche su quale colonna visualizzare ogni campo e se andare 
a capo dopo ogni elemento del record (vedere gli esempi allegati 
all’articolo). 

Le successive due opzioni del gruppo "ORGANIZZAZIONE", per¬ 
mettono di copiare un file in un'altro con diverso nome e di cancel¬ 
lare un archivio. 

Sarà gradito ogni vostro suggerimento per ampliare le possibilità di 
questo Data Base: non è infatti da escludere la pubblicazione di 
successive versioni del programma, con prestazioni ancora più ele¬ 
vate. 



ESEMPI DI STAMPE 

POSSIBILI CON IL D BASE 641: 

campi in riga, in colonna e formato etichetta 

GIAN PIERO ROSI 


00/7247521 'Mi 

AirSSANOPO CEPACCHT 

08/7091230 * MM 

FPANTESrA MARINI 

00/0209770 < -MM 

natm 1 

NOME i 

GIAN PIERO 


COGNOME « 

ROSI 


IMD IR IZZO l 

VIA TENUTA 

CASALOTTO 28 

C.A.P.I 

00040 


CITTA * « 

ROMA 


TELEFONOi 

7247521 


GIAN PIERO ROSI 


VIA TENUTA CASALOTTO 28 

00040 

ROMA 



IO OIM N*'50^ .Mff'icn ,A*0 .3' .C*' IO . I) .SV.< I 
0,n. ?Z*<5)•GPSUBI570• S*-"" 

13 FORK-ITO50«3*-S*«" " «ICXTiFORK - ITO I 

3ip*-p*«- ■ irrxTK ir*- - - • 

20 A*-" r" »Z*i"-," »B*-" | 

*?• r " !?*!"-, ■ 

25 r*-"|DATA BASE 64"«B*i" |"lO 

*-• l* 47*4 ■—i"*?*»"-*-"*?**"-»" 

30 FORI-0TO3IFORJ-0TO3iREADA*M . I> MEXTJ . I 
IMI *• "MEIU ESTERNO"«M2*-"CREA? IOIfT“ 

35 M3*-"DEFIN. CAMP I " i M6*« " I f ISER I MEI fTO ■ i M7 
*-"RICERCA REC."I MB*-"CORRE?IDI € " 

40 MS*-"VISUAL. FILE"iQl*-"PICER. CAMPO•IO 
2*-"ELIMINA?IOIC "103*-"PARAM.STAMPA" 

45 DATA ARCHIVI .SCEGLI FILE.CREA FILE.FIfE 
LAVORO.RECORPS.AGGIUNGERE.CORREGGERE 
50 DATA ELIMINARE.RICERCA.PER RECORD.PER C 
AMPO.VISUALIZZA.ORGANI?.SET STAMPA 
55 DATA COPIA FILES.CANC. FILES 
60 I-0IH-I 

65 PRirrT" ICLR1 (MITI "CHR*<-0> » IF0PT-0T03» 
print" mor-r j- tab't* io » i m*a.Pìirt«TT 
70 MS-MI•IG0SUBI40 
75 F-0* IFI-3THEIF-4 

00 T- I * 101 PP lNT" tHOME 11PVS OHI "TAB <TU >A*< 

I .0UT«T-FiPR JHTTAB «'T > A* l FORK - I TP 3 
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0*5 PR Il ITTAB <T '»B*i PP INTTAB <T « 1 ) " CSU1 "AO< I .K 
) i PR INTTAB<T)BOirEXTX i PR ir ITTAB < T> ■ [SU 3 " 

CO 

90 R«-"[RVS 0N1"IGOSUB130 
95 GETGO*IFQO-""THEN95 
100 IFA3CfQO)-£3ArOI T3THEMGOSUB I35i 1-1 M I 
G0T075 

105 IFASC <QO )■157ANDI)0THEMGOSUB135• I-I - I « 
G0T075 

I 10 IFASC < QO> -17AMDH <3 THE! EO« " " • G03UB 1 30 • H- 
H4IiGOTO90 

I 15 IFASC<QO)-145AhOH>lTHEri*O-""iGOSUB130iH 

■H-1IG0T090 

120 IFASC<Q0)-13THEN155 
125 G0T095 

130 POKE214 . H *2 - 1 « PR INT* PR INTTAB <T M )ROAO< 1 
,H ) * RETURN 

135 PRim* [HOhE 1 " T AB < T • 1 »F )AO< 1.0) iFORK-ITO 
7*PRINTTAB<T)DOirEXTK *RETURN 
140 P0KE2I4 ,21 iPRIUTiPRINTEOiPRINTFOiPRIUTG 
*r «P0KE214 ,22«PRIfrr 

145 PR 11ITTAB < 14 ) " [ RVS OHI"NO"[RVS OFF 1 "TAB < 
26)MO*RETURN 

150 REM *♦* SELEZIOIE OPZIOfE *** 

155 ONI UGOTO160 ,505.755.1 125 

160 DF«0 * OrWGOTG170.340.165 

165 prjuttclrmrvs oniFirc lavoro. • iclosci 

iCL0SE2ICLOSE3ICL03E4I Ero 
170 POKE2 14.10* PR II ITI PR INTTAB < 15 ) " [RVS OH) A 
TTErDERE ■ i OPEN 15 ,0,15 , ■ I " iCLOSE 15 
175 0PEN5.0,5,"O"*FORK-1T021 * GET05.XO.XO.XO 
‘.XO.XO.XO.XO.XO.XO.XO.XO .XOH EXT 
100 PRINT"C HOME 1"IPR11ITTAB < 13>AO*FORK«1TOB* 
PR 11ITTAB < 13 )BOi r EXTK * PR INTTAB < I3)C0 
185 GET05.XO.XO* PRINT"rHOME 1■iPRINTiP«0111«0 
190 P-Pf1I0ET05,TO.XO.XOiIFSTTHENCL0SE5* 
GOTO240 

195 IFTO-""THENTO-CHRO<120) 

200 IFASC<TO) <)132THErEORL«0TO3iGET#5.XO.XO 
.X*,XOi 1EXTLiGOTO220 

205 NO-""IFORL-0TO15IGETO5.XO* IFXO< )CHRO<96 
)ArCXO<>CHRO<160)THEN no-no*xo 
210 NEXTL 

215 IFRIGHTOCMO ,4)-" . DBF "THEN N-fUl iN»<N)* 
LEFTO<NO,LEN<NO)-4 > IGOTO230 
220 GET#5,XO,XO*FORL-0TO2iGET#5.XO.XO.XOi 
r-EXTi IFP<8THENGET#5 ,XO ,XO* GOTO 1 90 
225 P«01 GOTO 190 

230 1FN<9THENPRINTTAB<14)MO<M> 

235 GOTO220 

240 P0KE2I4,10iPRINT*PR1NTTAB<14)OOiPRINT" 
[HOf»E 3 ■ I PR INTi MAX"N«14« 1 « L- 1 * IFMAX-0THEN 
325 

245 PRINTTAB*14)"[RVS 0N3"NO<N> 

250 GETXO*IFXO-""THEN250 

255 IFXO-"[SUI B ArOL>1 THE NPRINTTAB<I4)"[SU3" 
NO<N> " [SUUSUI " «N-N- 1 IL-L- 1 iG 0TD245 
260 IFXO-"(9U3"ANDL-lANON>1THEN295 
265 IFXO- " [G 1U D""ArOL <8AI-ON< MAXTHErPR INTTAB < 
l4>"[9Ul"NO<N)iH-HM iL-LM IG0T0245 
270 IFX««"CGIU3"ArOrKMAXTHEN205 
275 IFA3C<XO)-13THEN305 
200 GOTO250 

205 PRINT"[H0ME3"iPRlNTiN-NM IF0RZ-N-7T0N* 
PR INTTAB < 14 > " ISLU* 

290 PR INTTAB < 14 )NO<Z ) i NEXTZ i PR INT" [SU 3 [SU 3 " 
iG0T0245 

295 PR ir-fT" [ HOME 1 * i PR 1NTIN«N- 1 IFORZ «NTON*7l 
PRINTTAB<14)" [SU 3" 

300 PR INTTAB < 14 )NO< Z ) * r-EXTZ i PR INT" [HONC 1 " i 
PR1NT * G0T0245 

305 OPEN 2,0,2.NO<N)♦".DBF"*NO-NO<N) 

310 0PEN1 ,0,15>PRINTUÌ , "P "CHRO<2 )CHRO< 1 ) 
CHRO<0)CHRO< 1 ) * INFUT02 .TR 
315 0PEN3 ,0 ,3 . "0i “ ♦ NO-* " .LBL ,S ,P " 

320 HFUT**3,Ni FORK-t TONI INPUT43 ,CO*K .0 > ,CO< 
K , 1 > INEXT 

325 PR INT " [HOME 3 " i FORK • 1TO 10 i PR INTTAB < 13)00 
i r-EXT * CLOSE 1 i CL0SE2 * CL0SE3 
330 GOSUB1401G0T095 
335 I 

340 M0-M20iGOSUB140iP0KE214,5iPRINT*PRINT 
TAB <5 ìA»A«iPRirTTTAB<5>B*B< 

345 PRINTTAB(5PRINT“tSU1CSU3"TAB<6)"N 

OME FILE?"TAB< 19> "’l iP*«r4*ir>l*»" " 

350 GETQ*iIFQ»--"THErFRINT“ - tSIMISTRA3’li 
GOTÒ350 

355 IFASC<0*)-13THEN375 


360 IFASC < )«20ArOLEN<NS >>0THEr PRINT■ 

[SINISTRAI [SINISTRA 3" f i N»«LEFT*< 14* ,LEN< 
NO >- 1>lGOTO350 

365 IFASC <QO> <480RASC <Q*>)95THEN350 
370 r>W«r«i*4Q*iPR INTTAB < 18 + LEN<NO) >Q#t t IFLEN< 
NO)<11THEN350 
375 IFCPTHENRETURN 

380 IFNO» • • THEI^IO-PO i PR I NT “ [SU 3 [ SU 1 ■ i FORK « 1 
T03 * PRINTDOOOO*11EXTKiGOTO70 
305 PRI NT "[CLR 3 -iMO-M3*iGOSUB140 * PRI NT - 
[HOr»E 3 " 

390 M40-"| | • i M50« * L - J m * PR 1NTAOI " r - 

—, “ i PR irTTBO» M40 * PR INTCO» 1^15* 

395 N-lIZ-0ILR-0IPRINT"[SU 3[SU 3[DESTRA310ME 
CAMPO[DESTRA 3[DESTRA 3LUNG[GIU 3"•PRINT 
0O1M4* 

400 IFLR-254THENPR IlfTCO» M50* G0T0475 
405 PRINTBOIM40» •-) ■NiPRINTCOlMSOiPRINT* 

[SU 3[SU 3[DESTRA 3*11X0-"" 

4 10 GETQOiIFQO-""THEIFRINT"«[SINISTRA3■* * 
G0T0410 

415 IFASC<QO)-13THEN445 

420 IFASC<QO)-20ANDLEN<XO)>0THENPRINT" 

[SINISTRAI[SINISTRAI"»iX*-LEFTO<X*,LENf 
XO)-1)IG0T0410 

425 IFZ-1AND<A$C<Q0> <48 OR ASC <Q0) >57 )THEr>!4 
10 

430 IF < Z -0AMDLEN < XO ) - 10 > OR < Z « 1AIOLEN< XO > «2 > 
THEN4 10 

435 IFASC <QOX320RASC<Q0) >95THEr44 10 
440 PRINTQOliXO-XO+OOiG0T0410 
445 IFZ -0ANDN< > ÌAI'OXO- " "THEN475 
450 IFXO-*"THEN410 

455 IFZ - 1 AIO < LR VAL <XO ) ♦ 1 >254 > THEN4 10 
460 IFZ-1THENLR-LR♦VAL <XO)♦1 

465 PRINT" ■flCO<N»2 >«XOi IFZ «0THENZ- 1 * PR1NT 
TAB <15 > IIXO-" " IG0T04IO 
470 Z «0iN-N+1 « PRINTiGOTO400 

475 N-N- 1 lOPEl-e .8 .2 .NO+" .DBF ,L . "+CHRO<LR> * 
0PEN1.0.15 

480 0PEN3.0,3.’O* * H40f’.LBL,S,U" 

405 PRINT01 , "P "CHRO<2 )CHRO< 1 >CHR*<0 >C-HRO< 1 ) 
iPRINTW2,1 * PR1NT03,N 

490 FORZ-1 TONIPRINT03,CO<Z,0>IPRINT03,CO<Z, 

1>INEXTZ * CLOSEI * CL0SE2iCL0SE3 
495 G0T065 
500 i 

505 IF140- ■ "THEN95 
510 0NHG0T0515.670.705 

515 PRINT"[CLR3■iM0-M6**GOSUB140«PRINT" 

[HOhE 3"iPRINT"[RVS 0N3INSER1NCNT0 RECOR 
O* fPRINT 

520 FORK-1TONIPRINTC*<K.0>»TAW<11>"« 

[RVS 0N3"LEFTO<SO.VAL <CO<K.1)))*rEXTK 
525 PRINT"(GIU3[GIU1[GIU3[RVS 0N3F! 

[RVS OFF 3 PER MEMORIZZARE IL RECORD 
[RVS ON3F7CRV8 OFF) MENU" 

530 PRINT"[HOME 3[GIU3[GIU3"iPRINTTAB<12>» «K 
« 1iXO-""IF0-01CZ-0 

535 GETQO*IFQO-""THENPRINT"[RVS 0N3_ 
[SINISTRAI"IiG0T0535 

540 IFASC <QO>- 13ANDLEN<XO)-VAL<CO<K,1> >THEN 
PRINT"[RVS OFF! "IiG0T0575 
545 IFASC<QO>-13THErFRINT" "#iG0T0575 

550 IFASC < QO)-133THENF0- 1*QO-CHRO<13>iG0T05 
40 

551 1F ASC < OO)-136THEN65 

555 IFASC <QO)-20Ar«LEN<XO) >0THE1FR ir-fT" 

[SINISTRA 3[SINISTRA 3 "f *XO-LEFTO<XO.LEN< 
XO)-l> * G0T0535 

560 IFASC <QO)(320RASC <QO))950RQO-" ."THEN535 
565 IFLEN<XO> <VAL<CO<K,1))THENX*-X*+QOi 
PR IITT" [RVS ON3-QOI 
570 G0T0535 

575 W*<K>-XOiIFXO-""THENWO<K)•"-" 

580 PRINT*IFK-NTHETK «0tPRINT"IHOhE 3IGIU3 
[GIU 3” 

585 IFF0-1THEN595 

590 K-KM I XO- " " * OL-PEEK <2 14 ) i PR INTTAB < 12)" 
[RVS 0N3"LEFTO<SO.VAL <CO<K,1))) 

591 P0KE2 14 ,0L- 1 i PR ir-TTi PR HTTTAB < 12)1 * G0T053 
5 

595 0PEN2,8,2,NO*■.DBF■lOPENl ,0,15 
600 PRINT#1,"P"CHRO<2)CHRO<1)CHRO<0)CHRO<1) 
lINPUT02,TR 

605 IFCZ- 1THENTR-RC- 1 * G0T0615 
610 IN-1*GOSUB1290 

615 TR-TR+ 1 IH>Ì-TR/256IL*>TR-HV.*256 

620 P«l I FORK-ITONi PRINT# 1 , "P "CHRO<2 )CHRO<L*/. 
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>CHR*<H’/.)CHR*<P) *PRINT#2 ,14*<K> 

623 P-P ♦VAL <C*<K , 1 ) > ♦ 11 NEXTK 

630 PRINT#1."P"CHR*<2>CHR*<1>CHR*<0)CHR*<1) 

*IFC2-0AND1N-0THENPR1NT#2.TR 
635 CLOSE1 ICL0SE2 • P0KE2 1 4,16* PR IITT• PR INT"RE 
CORD N. "TR- I" IEMOR1ZZATO"*PRINT 
640 IFCZ- 1THENFORZ- 1TO900 * fEXT * GOT063 
645 PR I NT "UN ALTRO I MSER 1 MENTO? <S/N> ■ 

650 GETQ** IFQ*«""THEN650 
653 IFO*»"S"THEN515 
660 G0T065 

663 REM *** CORRE?1OtE *** 

670 PRir/T"[CLR3"iM*-M8**GOSUB140 
675 irEUT- [HOfE INUMERÒ RECORD <0-MENU ) ■ f RC* 
IFRC-0THEN65 

680 GOSUBI220*1FU0OREOFTHErER1NT"IGIUJ 

[RVS ON1RECORD VUOTO."*FORK-0TO1000 « 
hEXT * G0T063 

685 P0KE2 14,18*PR INT* INPUT “CAMPO DA CORR . < 

0-ALTRO REC. ) ■ lK * IFK < 0ORK>NTHEN683 
680 IFK-0THEN675 

695 P0KE214,17*PRINT*PRINT"(RVS ON3F1 
[RVS OFF 3 PER MEMOR1ZZARE■ 

700 POKE214,KM* PR1NT * PR1 f/TTAB < 12)1*CZ-1*F0 
-0IK-K-1« GOTO590 
705 REM *•* ELIMINAZIONE **• 

710 PRINT"CCLR]•* M*-Q2** GOSUB140 
715 IfEUT" [HOfE 3NUIERO RECORD ■ I RC t R0- 1 * 
GOSUB 1220* IF140THEN735 

720 INPUT"[GIU3ELIMINO IL RECORD"IR*«IFR*< > 
"S"THEN735 

723 PRir-rm 1 , "p-chr*<2>chr*<l*/.)chr*<nv:)Chr*< 

1)*PRINT#2."8*8"«PRINT"CRVS ON3ELIMINAT 
01 ■ 

730 IFRC-TRTHEfERINT#1."P"CHR»<2)CHR*<1) 
CHR*<0)CHR*<1) * PRINT#2.TR- 1 
733 R0-0 * CLOSE1 * CLOSE2 * GOT063 
740 « 

745 REM RICERCA • 

750 « 

755 1FN*-*"THEN95 
760 0fElG0T0763,940 ,800 

765 IT-0*PRINT"[CLR3"«M*-M7*«GOSUBI40 
770 INPUT"[HOME INUMERÒ RECORD" » RC 
773 GOSUB 1220 * IFUJ0THENPR INT "(GIU 3 [RVS ON1RE 
C. VUOTO.* 

760 POKE214.10 *PRINT* I fEUT"STAMPO SU CARTA" 
IO**IFO*-"S"THENGOSUBI460 
785 1M»UT*UN ALTRO RECORD <S/N)■IQ*«IF0*< > • 
N*THEN770 
790 G0T065 
795 * 

P00 PRI fET *ICLR1"•M*-M9*t GOSUB140 * RC- 1 « IT-0* 
P-0IL-1«ZZ*-C*<1,0) 

80 1 P0KE214,18* PRINT t PRINT"[RVS 0N1TASTI CR 
SRCRVS OFF 3 SCORRIMENTO RECORD 
[RVS 0N3F 1 (RVS OFF 3 rENU" 

005 F0RK-2T0N«ZZ*-ZZ**RIGHT*<S**•|",VAL<C*< 
K-l . 1)>-LEN<C*<K-l,0>)♦!>»C*<K.0) 

010 NEXT«ZZ*-ZZ**RIGHT*<S**" I *,VAL<C*<N,1)) 
-LEN<C*<N,0) ) ♦!)«ZL-LEN<ZZ*> 

015 PRINT"(HOME 3[RVS 0N3"LEFT*<ZZ*.39>* 

PR INT « 0PEN2 ,8,2,14*♦ " . DBF "* OPEN 1 ,8,13 
820 PRINT*1."P-CHR*<2)CHR*<1>CHR*<0)CHR*<1) 

* 1KEUT#2,TR 

823 PRINT "(HOIE 1[GIU3"*FORK- 1TO16 *PRINT 

LEFT*<S*,39)* tEXT* PRINT"[RVS 0N3IGIU3 
IGIU 3ATTENDERE[HOME 3(GIU 3 " 

830 IFRC-TRTHEN865 
835 IFP-16THEN870 

840 P-P+ 1 * RC-RC l * HV.-RC /236 * L*4-RC-HVU256 
845 PR INTUÌ . "P"CMR*<2)CHR*<L‘OCHR*<H^)CHR*< 
1 >« INPUT02 .140*» I F140*- "8 *8 " THEN830 
850 Y-1*N*<P>»""«FORK-1T0N*PRINT#1 ."P"CHR*< 
2>CHR*<L^»CHR*<H%)CHR*<Y) * Ihf»UT#2,U* 

855 N* <P ) -N* < P ) +14**R I GHT*< S** " I " ,VAL<C*<K . I 
> ) -LEN<UJ*> ♦ 1 )*Y-Y*VAL<C*<K , I > > ♦ 1 
860 NEXT*PRINTLEFT*<N*<P) .39) «GOTO830 
865 IFP-0THEKP-MX 

870 MX-PiP-1*P0KE214.19 *PRINT*PRINTLEFT*<S* 
,10) 

875 PRINT"[HOME 3[RVS 0N3"MID*<ZZ*,L,39> 


880 P0KE214,P•PR1NT * PRINT"(RVS 0N3"MID*<N*< 
P) ,L ,39) 

885 GETO**IFO*-*"THEN885 

890 1FO*- " [ DESTRA 3 " AMDL < ZL -38THEM, -L ♦ 1 * GOTO 
875 

895 1FQ*-"[SINISTRA 3"ANOL > lTHEKL-L- 1 *G0T087 
5 

900 IFQ*-"[GIU 3"ORO*-"[SU 3"THENP0KE214,P* 

PR INT « PR INTLEFT*< 14* <P ) ,39) 

905 IFO*-"[GIU 3"ANDP < MXTHEfE-P * 1«GOTO880 
910 IFQ*- " [G IU 3 " AMI»RC < TRTHEKP-0 * G0T0825 
9 15 IFQ*-"[SU 3"ANDP >1THENP-P- 1 *GOTO880 
920 OR -RC -h*< -16* IFO*-" [SU 3 "ArEJQR >0THENRC-OR 

• P-0 * G0T0825 

925 IFASC < Q* > -J33THENCL0SE1 * CL0SE2 * G0T063 
930 GOTO880 
933 * 

940 PRINT"[CLR3"« M*-01** GOSUB140 * 0*-""* 

IKEUT" [HOME 3 [G IU 3VU0 I ANCHE LA STAMPA S 
U CARTA"IQ* 

945 PRINT * IT-0IS1-0* IFQ*-"S"THENS1■1 
950 FORK-1T0N*PRINTK "* [RVS ON3"C*<K,0)* 
NEXTK 

953 PRINT* INPUT "NUIERO CAfEO CH I AVE " * C0 * IFC 
0 < 1ORC0>NTHENPRINT■[SU 3[SU 3"I «G0T0955 
960 PRIITT"[CLR 3■* M*-Q1** GOSUB140 * PRINT" 
[HOME 3" 

965 P0KE214.16 *PRI NT *PRINTA**PRI NTB*tPRINTC 

• * PRINT “ [SU 3(SU 3[DESTRA 3"C*<C0,0)TAB <15 

)» 

970 1KPUT"(RVS ON3CHIAVE IRVS OFF 3"»CH**J-1 * 
R0-I *U- 1 

975 CO»1 * I*-LEFT*<CH*.1)* IF!*-" > "ORI*-" < " 
THENCH*-RIGHT*<CH*,LEN<CH*) - !)*CO-0 
980 IFCD-0THENCD-2*IFl*-"<"THENCD-3 
985 IFR IGHT*<CH* . 1 > - " * • THENJ-2 * CH*-LEFT*< C-H 
*.LEN<CH*)-1 ) «G0T0995 

990 IFLEFT*<CH*. 1) -"*"THENJ-3 *CH*-RIGHT*<CH 
•,LEN(CH*>“ I) 

993 1FC0>ITHEfEORK-1TOC0-I*U-U*VAL<C*<K.I ) > 

♦ 1 * NEXT 

1000 0PEN2 ,8,2 ,N*t " . OBF ■ «0PEN1 ,8.15 

1003 PRINT#1 , "P"CHR*<2 >CHR*<1 )CHR*<0)CHR*<1 ) 

* irE»UT#2 .TRiRC-l *CH-LEN<CH*> 

1010 RC-RC♦1 *IFRC 3TRTHEN1095 

1013 H/-S-RC /236 * LVI-RC -HVI*256 * PR I ITT# 1 . "P"CHR*< 
2 >CHR*<L*/.)CHR*<HV:)CHR*< 1 ) * IKFUT#2 .14* 
1020 IF14*-"fi*®"THEN1010 

1025 PR 1 NT# 1 . "P"CHR»<2)CHR*<L^)CHR*<H*/.)CHR*< 
U) * ir#>UTM2 ,14* 

1030 ON J GOTO 1045,1035,1040 

1033 UI*-LEFT*<14*.CH> «GOTO 1045 

1040 14*-R IGHT* < 14* , CH ) * GOTO 1045 

1045 ON CD GOTO 1050.1060.1070 

1050 IFCH*< )14*THEN1010 

1053 GOTO 1073 

1060 IFCH* > -14*THEN10 1 0 

1065 GOTO 1073 

1070 IFCH»< -14*THEN1 010 

1075 PRINT"[HOfE 3"* GOSUB1235 * IFW0THEN1010 
1080 IFS1THENGOSUB1460 

1083 P0KE214,20*PRINT*INPUT"CONTINUO RICERCA 
" # R» 

1090 IFR*< >"N"THEN1010 

1093 P0KE214,20 * PRINT* PRINT"•* * [RVS ON3RIC 
ERCA TERMINATA[RVS OFF 3 **»"*R0-0* 

CLOSE1 * CL0SE2 
1100 GETR*«IFR*-""THEN1100 
1105 G0T065 
1110 * 

1115 REM *** ORGANIZZA?IOIE *** 

1 120 * 

1125 IFN*« " "THEN95 
1130 ONHGOTO1330,1160.1135 

1135 P0KE2 14.10 * PRINT * PRINTTAB < 20 >A* * PRINT 
TAB(11)"CANCELLO "B*«PRINTTAB<20)C* 
l140 PRINT"[SUI[SU 3"TAB<21 )N**PRINT*PRINT 
TAB<20)"CONFERMI"I * INPUTR** IFR*< >"S" 
THEN1155 

1143 OPEN13,8,15,"S0*"*N*^", DBF•*CLOSE15 * 
OPEN15.0,13,"S0*"+N*4".LBL"«CLOSE15 
1150 N*-""* GOTO60 

1133 V*-LEFT*<S*,38)* PRINT"[SU 3[SU 3[SU 3[SU 3" 
V* * PRINTV** PRINTV*« PRIMTV** G0T095 
1 160 * 

1165 REM **• COPIA FILES *** 

1170 P0KE214,7 * PRINT * PR1NTTAB < 5 > A*A* « PRINT 
TAB<5)B*B**PRINTTAB<3)C*C* 

1175 PRINT"(SU 3[SU 3"TAB<6)"NOME FILE7"TAB<19 


120 


310 
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)""1IPR0-N0INS-""ICP-1iGOSUB350iCP-0 



1 180 

CP*-N*iN*-PR«iIFCP0-""THEN1210 



1 185 

PRINT « PRINT "IGIU 3COPIO CRVS ON)"N*" 




(RVS OFF) IN CRVS ON)"CP*"CRVS OFF 3? <S 




/TI) "IPOKE198.0 



1 190 

GETQ*tIFQS-""THEN1190 



1 195 

!FQ»< > "S"THEN1210 



1200 

PRINTTAB < 24)"C RVS ON)STO COPIANDO•"« 




OPEN15.8,15,"C0i"+CP**".DBF-01"♦N*^".DB 



1205 

CLOSE15iOPEN15.8,15,"C0«"♦CP0+".LBL«0«" 




♦ N» +".LBL"* CLOSE15 



1210 

P0KE214,7*PRINTiFORK« ITOSIPRINT0*0*0*« 




NEXTKIG0T095 



1215 

REM 4 44 SUBR. STAMPA REC 444 



1220 

0PEN2 ,8,2,N**".DBF"«OPENl .8.15 



1225 

PR1NT01,"P"CHR*<2)CHR*<1)CHR*<0)CHR*<1) 




l ir#>UT»2 .TRiPRINT" CHOr»t 3 " «EOF-0 



1230 

RC -RC ♦ 1 « HVJ-RC /256 I LVi-RC -HX4256 i IFROTR 




0RRC<2THEN EOF-1 «GOTO 1270 



1235 

PRINT* 1 , "P"CHR»<2)CHR*<LX)CHR*<HV:)CHR*C 




1 ) 1 INPUT42 ,UJ0* 



1240 

W0-0I IFW00-"8*8"THEMJ0-1 « GOTO 1265 



1245 

PRINTiPRINT"CRVS ON)RECORD N.[RVS OFF)" 




l RC- 1 



1250 

P-llFORK-ITOMIPRINTUÌ,"P"CHR*<2>CHR*<LK 




)CHR*(HV:)CHR*<P) « IKFUT42 .14*00 



1255 

P-P^VAL<C*<K. 1)>♦1IPRINTC*<K,0)TAB<11)" 




I[RVS ON)"LEFT*<S*.VAL<C*<K.1>>> 



1260 

PRINT"(SU)CRVS ON)"TAB<12)W0<K)« NEXTKi 




PRINT 



1265 

IFR0THENRETURN 



1270 

CLOSE1iCL0SE2 « RETURN 



1275 

l • 



1280 

REM 444 RIC. RECORD VUOTO 444 



1285 

l 



1290 

RR-1 



1295 

RR -RR ♦HI FRR >TRTHEN IN-0 I RETURN 



1300 

HV'.-RR/258iLX-RR-H*/'.*256iPR INTUÌ . "P"CHR*< 




2) CHR0<L5OCHR0<WOCMR0< l ) 



1305 

INPUT*2 .14** IFW0< >"84fi"THEN1295 



1310 

TR-RR-1«RETURN 



1315 

1 



1320 

REM *4 PARAMETRI DI STAMPA 44 



1330 

PRINT"CCLR 3"I M0-Q30IGOSUB140 «PRINT" 




[HOht 3"* PRI NT "(GIU31. OEFINIZIOhC PARAM 




ETRI STAff^A* 



1335 

PRINT"(GIU32. STAMPA FILE"«PRINT"CGIU)3 




. RITORNO AL MENU[GIU3"«INPUT"OPZIONE"« 



1340 

01<OGOTO 1 350.1435 ,65 



1345 

GOTO 1330 



1350 

PRINT"(CLR 3"TAB <5)"CRVS ON1DEFINIZIONE 




PARAf-CTRI DI STAMPA"* PRINT 



1355 

PRINT" CGIU) 1 . TUTTI I CAl^» I SULLA STESS 




A L INE A" * PR INT" (G IU 32 . CAMPI IN COLONI 



1360 

PRU4T" IGIU33. STAMPA FORMATTATA PER ET I 




CHETTE C GIU 3"t INPUT"OPZIONE"»0«DF-1 



1365 

IFQ- 1THE lOF-2 « GOTOl380 



1370 

IF0-2THEN0F-0iGOTO 1380 



1375 

IFQ<>3THEN1350 



1380 

PRIf>rr"[CLR)[GIU)CAr^>I DA STAMPARE* CGIU) 




[GIU 3"« FORK- 1TON* PRINTK"I CRVS ON)"C»<K 




.0)1"[RVS OFF)> <S/N)"I 



1385 

S*<K ,0 ) —0 * INPUTR»! IFR«< > "N"THENSVi<K .0)- 




1IPR1NT"CSU)"TAB<30)"(RVS ON3SI" 



1390 

IFR»< >“N"ANDOF-1THEN1415 



1395 

IsCXTi IFDF< >2THEN 1330 



1400 

SM-0iFORK- 1TONI IFS%<K,0)THENSM-SM+VAL <C 




*<K.1)>♦1 

1 


1405 

NEXTK I IF8M>74THENPR INT" [CLR 3 CG IU ) 4L If'CA 




TROPPO LUNGA4"IFORK-0TO2000INEXT*GOTO 1 




350 



14 10 

GOTO 1535 

t r 


1415 

INPUT" NUMERO DI COLONNA" 1 SVi<K ,1)1 INPUT 




" RITORNO A CAPO <S/N)")R« 



1420 

IFR*-"S"THENSX<K.0)-2 



1425 

GOTO 1395 



1430 

l 



1435 

PR1 NT" CCLR) STAILO FILE [RVS ON)"N*« 




PRINT"CGIU)CGIU)"IIT-0 



1440 

OPEN2 .8.2.N*+".DBF■«OPENl .8.15 « R0-1«FOR 




Z- 1TOTR- 1 « RC-Z « GOSUB1230 * GOSUB1460 



1445 

NEXTiR0-0 «CLOSEl« CL0SE2* G0T065 



1450 

l 



1455 

1 


1460 IFW0THEM*ETURN 

1465 0PEN4 .41 IFDF «0THENPR INTII4 .CHR*< 18>"REC0 
RD N."CHR*<146>RC-1IPRINT44.D* 

1470 IFDF-2A1E) IT-0THENPRINT44.CHR*< 18)IT*i 
PRINT44. O* « IT-1 

1475 ON DF♦1 GOTO 1460.1495.1515 
1480 FORK■1 TONIIFSX<K.0)THENPRINT#4,C*<K,0) " 
i"LEFT0<S*.12-LEN<C0<K,0))>M»<K> 

1485 NEXTK 

1490 PRINT44,D*iCL0SE4«RETURN 
1495 FORK-ITOMI IFS'/.<K .0 ) -0THEN15 10 
1500 R*-STR#<SV.<K , 1 > ) »R*-R IGHT*<R* .LEN<R#) - 1 
)IIFLEN<R*)-1THENR*-"0"*R* 

1505 PRINT44,CHR*<16>R*W*<K)l «1FSKCK.0)-2 
THENPRINT44.CHR*<32) 

1510 NEXTK « PRINT44,CHR*< 13)CHR*<13)«CL0SE4« 
RETURN 

1515 J-0« FORK - 1 TONI IFS*/.<K ,0 )-0THEN1530 
1520 1F J -0THENPR INT44 .W*<K)l i J-K i GOTO 1530 
1525 PRINT44,LEFT*<S».VAL<C*<J,1)>-LEN<W*<J) 

) *2 >U*<K )l i J-K 

1530 hCXTK«PRINT*4,■ <-"CHR*<18)RC-1 *CLOSE4i 
RETURN 

1535 J-01 FORK - 1 TONI IFS*/.<K .0)-0THEN1550 
1540 IFJ-0THENIT*-C»<K.0)iJ-K« GOTO 1550 
1545 IT0-IT*+LEFT*<S*.VAL<C»<J. 1 ) )-LEN<C*<J . 

0)>+2>+C*<K.0)1J-K 
1550 hCXTK 

1555 IT*-IT«^LEFT*<S*.VAL<C»<J.1)>-LEN<C*<J. 

0))+6)iGOTO 1330 
1560 « 

1565 I 

1570 PRINT" [CLR3CUHT3"IPOKE53280 .2«P0KE53281 
.2 

1575 PRINTTAB <12 > "G IAN PIERO ROSI’iPRINT* 

PRINTTAB <15)■IBLK 3PRESENTAIGIU 3 t GIU1■ 
1580 ZZ*<0)-"CUHT) CRVS ON3F 

CRN/S OFF3FCRVS ON3F ^CRVS OFF 3 (BLK 3 
[RVS ONir ^CRVS OFF) [RVS ONIT ^ 

[RVS OFF 3 CRVS QN3F CRVS OFF3F" 

1585 ZZ*<1>•"CUHT) [RVS ON3F CRVS OFF3 

FCRVS ON3F [RVS OFF )F CRVS ON3 
[RVS OFF 3FCBLK 3 ^[RVS ON) ^ 

[RVS OFF 3 [RVS ON3F CRVS OFF 3F [RVS ON3 
[RVS OFF3F (RVS ON)F CRVS OFF IT" 

1590 ZZ*<2)-" CUJHT3 CRVS ON3T ▼ CRVS OFF )F 
CRVS ON3F CRVS OFF 3FCBLK 3 (RVS ON3F 
▼ [RVS OFF3F ^(RVS ON3 ^CRVS OFF 3 
[RVS ON3r [RVS OFF)F" 

1595 ZZ*<3)-"CUHT)[RVS ON3F CRVS OFF 3F ^ 

[RVS ON) CRVS OFF3FCRVS ON3F CRVS OFF 3 
F ^CRVS ON) ^CRVS OFF 3 CBLK 3 [RVS ON3F 
[RVS OFF )F VRVS ON) [RVS OFF )F ^ 
(RVS ON) ^(RV6 OFF) [RVS ON3F 
[RVS OFF)F" 

1600 ZZ0<4)-"[ UHT 3 C RVS ON) CRVS OFF 3 

[RVS ON3F CRVS OFF3FCRVS ON3F CRVS OFF 3 
F CRVS ON1 CRVS OFF 3 CBLK 3 CRVS ON) 
[RVS OFF 3 (RVS ON3F CRVS OFF 3FCRVS ON) 
F CRVS OFF)F CRVS ON3F CRVS OFF)F 
(RVS ON3F CRVS OFF3F“ 

1605 ZZ«<5)-"CUUTl^CRVS ON) CRVS OFF3F 
[RVS ON3F CRVS OFF )F [BUOI 

CRVS ON) CRVS OFF)F CRVS ON) 

[RVS OFF 3FCRVS ON)F CRVS OFF)F* 

1607 FORI-5TO0STEP-1«P0KE2 14.5♦I «PRINT*PRINT 
ZZ*<I)*FORJ-0TO200 «NEXTJ.I 

1608 P0KE214.13*PRINT"CL.GRY)• 

1610 PRINTTAB < 13)"CRVS ON) CRVS OFF 3 
CRVS ON) [RVS OFF) [RVS ON) • 

1615 PRINTTAB<13)"[RVS ON) CRVS OFF) 

[RVS ON) CRVS OFF) CRVS ON) * 

1620 PRINTTAB< 13 ) " (RVS ON) CRVS OFF) 

[RVS ON) CRVS OFF) (RVS ON) CRVS OFF) 
[RVS ON) " 

1625 PRINTTAB<13>"(RVS ON) [RVS OFF) 

[RVS ON) CRVS OFF 3 CRVS ON) 

[RVS OFF! CRVS ON) " 

1630 PRINTTAB<13)"CRVS ON) (RVS OFF 3 

[RVS ON) CRVS OFF) (RVS ON) (GIU)(GIU) 

1635 PRINTTAB<15)"PREMI CRVS 0N)F1CU«T3" 

1636 ZQ*- a <C> COPYRIGHT TWIN SOFTWARE 

■ 

1637 ZQ0-RIGHT*<ZQ*.38>♦LEFT«<ZO»,1)«POKE214 
,22 * PRI NT « PRINTZQ* « FORI-0TO50 * NEXT 

1640 GETQ*iIFO0-""THEN1637 
1645 IFASC <00)< >133THEN1637 
1650 PRINT"CCLR 3"« POKE53280 ,0 * P0KE53281 .0» 
RETURN 
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/ PROGRAMMI DI UST 


COMMODORE 64-128 

LIST N 

ASTON 64 TITOLAI 

3/1986 

CATALOGO PROGRAMMI 

4/1986 

SUPERUTILITY 

5-6/1986 

NOTE DIRECTORY 

9/1986 

CALCOLO DEGLI INTERESSI 

3/1987 

GHOSTS 

4 1987 

BRISCOLA 

4/1987 

SISTEMA SOLARE 

6-7/1987 

AUTOSPRITE 

8-9/1987 

VIDEO CRONOMETRO 

8-9/1987 

MULTITASK 64 

10/1987 

CRAYON 

10/1987 

PUZZLE 

10/1987 

JUMP 3D 

11/1987 

IL MUSICHIERE 

12/1987 

VIDEO CRUCIVERBA 

12/1987 

EASY CHAR 

1-2/1988 

TOTOCALCIO FACILE 

1-2/1988 

TELE BEAM 

3/1988 

IL DISEGNA CARTE 

4/1988 

MEMOREX 

4/1988 

RISIKO 

4/1988 

ENCI QUIZ 

5/1988 

TALK 64 

5/1988 

MEDICALC 

5/1988 

AGENDA 

5/1988 

HYPER SPACE 

6/1988 

GIOCO DEL 21 

6/1988 

MICRO L/M 

7-8/1988 

TEST RIFLESSI 

9/1988 

TOTORIDUTTORE 

10/1988 

ADVENTURE HOME 

12/1988 

CACCIA GROSSA 

12/1988 

SINONIMI 

12/1988 

SCHERMA 

1-2/1989 

SFIDA 

1-2/1989 

EASY WORD 

1-2/1988 

LOVE GAME 

1-2/1989 

CAN CAN 

3/1989 

POKER 

3/1989 

AVVENTURA 

3/1989 

IL GIOCO DELLA MEMORIA 

4/1989 

LE OTTO REGINE 

41989 

COPY 64 

4.1989 

ASSEDIO AL CASTELLO 

5/1989 

SUPER JUMP 

5/1989 

WALT 64 

5/1989 

FRAMMENTI 

6/1989 

MEMO 

6/1989 

CONVERSION SIZE 

6/1989 

ARCHY 

7-8/1989 

TORRE DI HANOI 

- 7-8-1989 

IDENTIKIT 

7-8/1989 

SUPER SCOPA 

9/1989 

DETECTIVE 64 

9/1989 

COMMODORE 128 

LIST N 

TECNO 

3/1987 

EASY DATA 

5/1987 

AGENDA 128 

8-9/1987 

TUTTO DOS 

10/1987 

GESTIONE MAGAZZINO 

11/1987 

ELEMENTI DI CHIMICA 

12/1987 

CALCOLATRICE 

12/1987 

CROSS OVER 

12/1987 

ARCHIVIO FORNITORI 

3/1988 

GEOMETRIA 

6/1988 

EASY DISK 

10/1988 

GIOCO DEL LOTTO 

10/1988 

DISK UTILITY 

11/1988 

THE BIG CHARS 

12/1988 

IPERGRAPHIC 3D 

6/1989 

SLOT MACHINE 

9/1989 

TIRO ALLA FUNE 

9/1989 

SISTEMI MSX 

LIST N 

DATA WRI1ER 

1-2/1986 

C'C BANCAHIO 

10/1986 

IL TECNIGRAFO 

1/1987 

L'INVENTA SPRI1E 

3/1987 

ROTAZIONE 3D 

6-7/1987 

AUIOPROG GRAFICO 

10/1987 

JOHNSON CONTRO LEWIS 

1-2/1988 

DOSSIER ASCII 

3/1988 

SPRITE DANCE 

3/1988 

ANIMARE COL VDP 

4/1988 

STAR WARS 

4/1988 

KILLER SATELLITES 

5/1988 

GIOCHIAMO CON GLI ANIMALI 

5/1988 

SUMMIT USA URSS 

5/1988 

MICROCARAT T ERI 

6/1988 

STAR WARS 2 

6/1988 

VAMPYR 

7-8/1988 

ANGOLI 

7-8/1988 

PIANETA CHIRONE 

7-8/1988 

DRAKULA 

10/1988 

FAST FOOD 

10/1988 

BOMB MAN 

U/1988 

CARATTERI TIPO RASTER 

11/1988 

UTILITY ICOME-MSX2 

11/1988 

CATCH 

12/1988 

TRIANGOLI 

12/1988 

COMPUTER RITRAI TI 

12/1988 

ACQUARELLO 

1-2/1989 

COPY SPRITE 

1-2/1989 

GHOST N ZOMBIES 

1-2 1989 

OPTIX 

3/1989 

ANIMAZIONE 3D 

3/1989 

GRAFICA 3D 

4/1989 

WORKSTATION COPY 

4/1989 

BUBBLO 

5/1989 

PINGO PONGO SOUASH 

5/1989 

SERPENTONE 

5/1989 


BUMPER 

6/1989 

OTHELLO 

5/1988 

MAD CLIMBER 

6/1989 

RIUNISCI LA MUSICA 

6/1988 

DIGIT 4 

6/1989 

CACCIA ALLE LETTERE 

6/1988 

DAMA 

7-8/1989 

DISASSEMBLER 

6/1988 

VIDEOMIX 

7-8/1989 

MENU 

/-8/1988 

IL TEST DEI COLORI 

9/1989 

DECOR EDITOR 

7-8/1988 

TURBO BILIARDO 

9/1989 

KEYWORD ESTENSION 

7-8/1988 



FUNZIONI 3D 

9/1988 

OLIVETTI PRODEST PC 128 

LIST N 

CALENDARIO PERP 

9/1988 



RAINBOW 

9/1988 

OUARKSTYLE 

1/1987 

MERGE 

10/1988 

ALFABETO PAZZO 

2/1987 

CATALOGO 

10/1988 

SEMPLIFICAZIONE DI FRAZ 

3/1987 

LUCKY WHEEL 

10/1988 

OTHELLO 

4/1987 

ANTIFURTO 

11/1988 

MEMORY 

4/1987 

PRED PRINT 

11/1988 

IL VIAGGIOSCOPIO 

5/1987 

GESTIONE BIBLIOTECA 

11/1988 

BOMBER 

6-7/1987 

STARLANE 

12/1988 

OLI 3D 

8-9/1987 

SETTE E MEZZO 

12/1988 

PIE CHART 

10/1987 

POKER 

12/1988 

SOUIGGLE 

11/1987 

LA STANGATA 

1-2/1989 

ASTEROIDI 

11/1987 

MERGE 1 1 

1-2/1989 

RIDUZIONE DI SISTEMI 

1-2/1988 

SCANNER 

1-2/1989 

CARTON CREATOR 

1-2/1988 

PROMMER 

3/1989 

THE MAZE 

1-2/1988 

GESTIONE CONTO CORRENTE 

3/1989 

SISTEMI LINEARI 

3/1988 

CRAMER 

4/1989 

GRID 

3/1988 

DOMINO 

4/1989 

COME TI POKO IL VIDEO 

4/1988 

ALFA-SEO 

4/1989 

OLISTORE (DATA BASE) 

4/1988 

LISTATI IMPECCABILI 

5/1989 

CARACTERS SETS 

5/1988 

PUZZLE 

5/1989 

GRID RUN 

5/1988 

MISTER SPAAK 

5/1989 

CHARACTER EDITOR 

6/1988 

M-ROUTINES 

6/1989 

SISTEMA SOLARE 

6/1988 

STUDIO DI FUNZIONI 

6/1989 

PIANOLA 

7-8/1988 

MENU WELCOME 

6/1989 

MINILOGO 

7-8/1988 

MA IH PACK 

7-8/1989 

MONITOR 

9/1988 

POLAR GRAF 

7-8/1989 

OLIEXPERT 

9/1988 

CONVERTITORE ASCII 

7-8/1989 

ELAB DI SPRITE 

9/1988 

NOMI ORDER 

9/1989 

STUDIO DI FUNZIONE 

10/1988 

SALISCENDI 

9/1989 

COME SI SUONA LA CHITAHRA 

10/1988 

SCANNER 1 1 

9/1989 

BATTLE 

10/1988 



CAE - DISEGNO ELETTRONICO 

11/1988 

PC COMPATIBILI MS-DOS 

LIST N 

SOLUZIONE DI POLINOMI 

111988 



CRAZY PICTURE 

11/1988 

MS-DOS CON IL BASIC 

1-2/1988 

SOUND SAMPLER 

12/1988 

TOTO 13 

4/1988 

PROPOR TION AL 

12/1988 

BIORITMO 

5/1988 

DATAGEN 

1-2/1989 

SUPERGRAPHIC 

5/1988 

BLACK JACK 

1-2/1989 

MASTER MIND 

6/1988 

COPY FILE 

1-2/1989 

EQUAZIONE DI 2“ GRADO 

6/1988 

SCREEN EDITOR 

3/1989 

AGENDA TELEFONICA 

7-8/1988 

TOTORIDUZIONE 

3/1989 

MUSICA CON IL PC 

7-8/1988 

SALTO IN LUNGO 

3/1989 

STUDIO DI FUNZIONI 

9/1988 

ISM 

4/1989 

SETTE NOTE 

10/1988 

ESAB 

4/1989 

CALCIO CLASSIFICA 

11/1988 

NUOTO 

4/1989 

WORD PROCESSOR 

12/1988 

BORDER 

4/1989 

BATTAGLIA TRA LE MONTAGNE 




TOT OCALClO 


MUSICA A TRE VOCI 

5/1989 

RISOLUZIONE SISTEMI 

3/1989 

ASSEMBLATORE 

6/1989 

RUOTA DENTATA 

3/1989 

IL PINGUINO 

6/1989 

SIMPLEX 

3/1989 

CONTO CORRENTE 

7-8/1989 

RAMDISK INSTALLER 

4/1989 

DOCTOR FRANK 

7-8/1989 

TEST 

5/1989 

SURVIVAL 

9/1989 

PROCEDURA SORT 

6/1989 

OLIMPIADI 

9/1989 

CURVES 

6/1989 



BOWLING 

.7-8/1989 

OLIVETTI PRODEST PC 128S 

LIST N 

PRIMA PAGINA 

7-8/1989 

9/1989 



PASSWORD 

WINDOW EDITOR 

2/1987 

KEY E WRITE 

9/1989 

SPHEROGRAPH 

3/1987 



OLICALC 

4/1987 



CONTABILITA DOMESTICA 

5/1987 



AIR COMBAT 3D 

C/C BANCARIO 

6-7/1987 

6-7/1987 

PROGRAMMI SPECIALI 


AGENDA TELEFONICA 

8-9/1987 



AGENDA APPUNTAMENTI 

10/1987 



TERROR TERRAIN 

11/1987 

MSX 2 

LIST N 

FROGGY GO HOME 

121987 



CHAR EDITOR 

12/1987 

EFFETTI SPECIALI 

1-2/1989 

AUTOGRAPH 

1-2/1988 

XBASIC KUN 

3/1989 

CHIMICA FACILE 

1-2/1988 

EFFETTI SPECIALI 2 

5/1989 

MUSIC EDITOR 

3/1988 

IMAGO 

6/1989 

SUPER DIRECTORY 

41988 



RIDUZIONE SISTEMI 

4/1988 

OLIVETTI PRODEST PC 128S 

LIST N 

GESTIONE MAGAZZINO 

5/1988 



PRET1Y PRINTER 

5/1988 

OVERLAY ROUTINE 

4/1989 


SERVIZIO PROGRAMMI 

I programmi pubblicati in questo numero e nei precedenti di LIST, 
sono disponibili registrati su cassetta o floppy disk. 

I lettori possono richiederli specificando il titolo e quale computer. 

Inviare, quale contributo spese, per ogni programma: 

Lire 10.000 su cassetta, Lire 12.000 su floppy disk da 5” 1/4 o 3,5”. 

Per i programmi speciali il costo è di Lire 15.000 

La richiesta deve essere fatta 
a mezzo vaglia postale indirizzato a: 

EDICOMP S.r.l. - Via Flavio Stilicone, 111 - 00175 ROMA 
(Ufficio postale Roma 80) 

oppure con assegno bancario N.T. in busta chiusa. 














Dove acquistarli? 

MOVIT ILLUSTRATI SONO REPERIBILI IN QUESTI NEGOZI 


IROBOTS 


AOSTA - Mastro Geppetto. Via Croce di Città 73 - (0165)362174 
AREZZO - Giocalibro, Via Mecenate 35 - (0575)356357 
BARI - Libreria dell'Arca, Via dell'Arca 14 - (080)224212 
BARI - Pentalfa e Varianti, Piazza A. Moro 25/A - (080)369393 
BERGAMO - Bimbolegge Bimbogioca, Via Borfuro 12 B/C - (035)2130015 


FOGGIA - Città del Sole. Via Valentini Vista 8 ■ (0881)21112 
IVREA - Didattica più. Via Guarnotta 33 ■ (0125)40105 
LECCE - Città del Sole, Via B. Croce 16 - (0832)57934 
MATERA - Città del Sole, Via la Croce 8 • (0835)219430 
MILANO • Città del Sole, Via Dante 13 • (02)806068 


ROMA - Città del Sole, Via della Scrofa 65 - (06)6875404 
S. BENEDETTO DEL TRONTO - Città del sole, Via Palestra 25 - (0735)2738 
SASSARI - Città del Sole, Via Usai 29/31 • (079)231095 
SAVIGLIANO • Centro Gioco Educativo, Via Mazzini 21/23 - (0172)33434 
SIENA - La nuova fabbrica dei sogni, Via Pantaneto 38 - (0577)285591 


I gioielli della ROBOTICA 


TRACéR 


\\ 

, sen»o re 


riconosce , 


BIELLA - Il talismano, Via Italia 45 - (015)22488 


MILANO -1 giochi dei grandi, Via Meravigli 7 - (02)8058991 


TARANTO - Città del Sole, Via Nitti 57 - (099)24436 


BOLOGNA - Città del Sole, Strada Maggiore 17 - (051)266432 


MODENA - Orsa Maggiore, Piazza Matteotti 20 • (059)211200 


TORINO • Centro Giochi Educativo, Via Cemaia 25 • (011)541776 


BORGOSESIA - Erbavoglio, Via Roma 20 - (0163)25612 
BRESCIA - Barbanze, Via Mazzini 24 - (030)57249 
BRESCIA - L’altro Barbanzè, Via Mazzini 20 • (030)57249 
BRINDISI - Città del Sole, Piazza Cairoti 36/37 - (0831)21146 
CATANIA - Cartolibreria dei Ragazzi, Viale Ionio 46 - (095)371725 
CATANIA - Coop Magia, Viale Ionio 46 - (095)371725 
CESENA - Libreria Bettìni, Via Vescovado 5 - (0547)21634 
CHIETI - Games Centre, Centro Commerciale il Gialdo - (011)9478877 
CUNEO - Centro Gioco Educativo, Via Carlo Emanuele 7 • (0171)65600 
FAENZA - Città del Sole, Voltone della Molinella - (0546)21013 
FERRARA ■ Città del Sole, Via Contrari 40 - (0532)48816 
FIRENZE - Città del Sole, Borgo Ognissanti, 37 - (055)219345 


MONZA - Città del Sole, Via Carlo Alberto 33 - (039)389885 
MORBEGNO - Città del Sole, Vicolo Colombo • (0342)613370 
NAPOLI - Città del Sole, Via Kerbaker 46 - (081)242764 
NOVARA - Dialoghi giochi, Corso Cavallotti 21 - (0161)57789 
ORISTANO - Didagiò. Vicolo Solferino 6 • (0783)73169 
PADOVA - Via S. Martino e Solfenno 102 - (049)875315 
PALERMO - Città del Sole, Via Libertà 43 • (091)298799 
PAVIA - La cicogna, Via Omodeo 29/33 - (0382)25705 
PESCARA - Città del Sole, Viale Regina Margherita 30 • (085)295356 
PINEROLO - Centro Gioco Educativo, Via Lequio 58 - (0121)74084 
PORTOFERRAIO - 0-99 Giochi, Via Manganaro 52 - (0565)917906 
REGGIO EMILIA - Città del Sole, Via Franzoni 6/B 


TORINO - Centro Giochi Educativo, Via Nizza 97 - (011)6698478 
TORINO - Centro Giochi Educativo. Corso Peschiera 160 - (011)389134 
TORINO - Games Centre, Centro Commerciale Lagrange 15 • (011)512576 
UDINE - Città del Sole, Piana San Cristoforo 14 - (0432)208148 
VARESE - Città del Sole, Via Avegno 15 - (0332)234271 
VEN.MESTRE - Città del Sole, Via Palazzo 50 - (041)5053015 
VERCELLI • Dialoghi Giochi, Via G. Ferraris 53 - (0161)57789 
VERONA - Città del Sole, Via Cattaneo 8 - (045)591761 

Prodotti in Giappone 
distribuiti in Italia da: 

Texim Italia s.r.l. - Via Flavio Stilicone, 111 
00175 - Roma - Tel. 7665495 



OPINIONì; Comunicazione Integrata 
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REGALA AL TUO PC 
UN FANTASTICO PORTATILE AMSTRAD. 

* PARTIRE M L 99t.'M + IVA 


S COPRI LA LIBERTÀ ASSOLUTA 

Collega il tuo PC con uno dei portatili Amstrad tramite 
AM-LINK — l’eccezionale software di comunicazione 
Amstrad - e scopri quanta potenza e libertà hai ora a tua 
disposizione. Puoi trasferire dati e informazioni da un 
PC all’altro con due dischetti diversi: da 3”l/2 a 5”1/4 e 
viceversa. E raddoppiare così le tue capacità di lavoro. 
Nella versione con 640 Kb disponi, inoltre, di un ma¬ 
gnifico modem incorporato. Così puoi comunicare 
con il tuo computer, via telefono, dovunque tu sia 
(oppure puoi collegarti direttamente con tutte le ban 
che dati che ti interessano, trasmettere fax e telex, e 
tante altre cose ancora!). 

IJ NA GRANDE FAMIGLIA 

Scegli il tuo portatile fra la gamma PPC Amstrad: IBM XT 
compatibili, MS-DOS 3-3, schermo LCD 80x25 (super 
twist) regolabile. 

PPC 512 SD 512 KB, 1 disk drive 3*1/2 L. 999-000* 

PPC 512 DD 512 KB, 2 disk drive 3 "1/2 L. 1.349-000* 

PPC 640 SD Modem incorp. omologato, 2400 BAUD, 640 
KB, 1 disk drive 3*1/2 L. 1.249-000* 

PPC 640 DD Modem incorp. omologato, 2400 BAUD, 640 
KB, 2 disk dive 3”l/2 L. 1.599 000*. (*) + IVA 


DALLA PARTE DEL CONSUMATORE 

Amstrad, il più grande produttore di PC in Europa, sta con 
quistando il mondo con la sua esclusiva filosofìa: produr¬ 
re apparecchiature in grandi volumi per garantire prezzi 
competitivi. 

Ora che lo conosci entra anche tu nel grande mondo 
Amstrad! 

S ERVIZIO “PRONTO AMSTRAD” 

Se vuoi saperne di più su questi eccezionali modelli 
telefona a 02/26410511. 

LI TROVI QUI 

Disponibile presso i numerosissimi punti vendita 
Amstrad. Cerca quello più vicino su “Amstrad Magazine” 
in edicola (troverai tante altre notizie). Oltre 150 centri 
di assistenza specializzata. 



DALLA PARTE DEL CONSUMATORE 




















